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DENNIS. HAUGH 


ER ER I OR PR, RNR RR, SS A, SY A A 


CE 


DBTL SOFTWARE “SAF 1981/12/24 10:312:47 HRF ASSEMBLER DTSS L-6 HOST RESIDENT FACILITY PAGE 0001 


000001 2 TITLE DBTL SOFTWARE ane 

000002 4 XDEF ESDBTL NEEDED FOR MODULE MAP 
0387 7 

000003 0000 5 SS$DBTL EQU $ START OF MODULE DBTL 


4 


SEAN, TL A A I 2 NE Ta A A ER TE SE LTT ET ET PRT PR TS a: RTP RTE een eae ora TE ET I ET TE PTET, TE: LO PLS LP RL EN TP TPR RES A a DP RAR A PE: A BCP SR SE RS RR SPA PA AP Py TN: ST 


| 
| 


ae Oe 


| 


OBTL 


000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 


000013 


000014 
000015 
000016 


000017. 


000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 


000044. 


000045 
000046 
000047 
000048 


000049. 


000050 
000051 
000052 


SOFTWARE 


0000 
0040 


0080. 


O00CO 


0001 
0002 
0003 
0005 
0006 


0007. 


0008 
OO0A 
go0oc 
OOOF 
0010 
0011 
0012 
0013 


0018 
OO1A 
0026 


0009 
0009 
0049 


0000 
0400 
FF8O 


0001 
0002 


0003 


0003 
0004 
0006 
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1000 
1010 
1020 


1030 
1040: 


1050 


1060. 


1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 


~1150 


11690 
1170 
1180 


1190. 


1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1355 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 


1440 


1450 
1460 
1470 


/EJECT 


* 


* 
SIOCHO 
SIOCH1 
$1OCH2 
SIOCHS 
* 

SOTCTL 


SICTLI. 


SICTLO 
SOCCTL 
$TSKRI 
$TSKRO 
SINMBA 
SINMMA 
SINRNG 
$SOBCTL 
$CFGAI 
S$CFGAO 


$CFGBI. 
$CFGBO. 


* 
$ISTS1 
SISTS2 


SIDINP. 


* 
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*IQ0 DRIVERS 


EQU 
EQU 
EQu 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 


EQU 


EQU 


EQU 
EQU 


EQU 


z*0000! 
z'0040° 
z*0080* 
z*o00cQg' 


z2*0001" 
z*0002' 
z*0003" 
z‘'0005° 
z'0006° 
Z* 0007" 
2°0008’ 
Z'OOOA® 
z'oooc* 
Z*OOOF* 
z*'0010' 
z2*0011' 
z*0012° 
Z*0013° 


z'0018! 
Z*OO1A' 
z*0026' 


SIOLD EQU z*0009° 


SIOLDI EQU SIOLD+$10CHO 
SIOLDO EQU SIOLD+S10CH1 


* 


HRF ASSEMBLER 


DTSS L=6 HOST RESIDENT FACILITY 


"10 CHANNELS 


CONTROL INFORMATION OUTPUT 
INPUT. INT CONTROL. INFO. 
OUTPUT INT CONTROL INFO 
OUTPUT CHANNEL CONTROL 
INPUT. TASK REGISTER 
OUTPUT. TASK REGISTER 
INPUT MEMORY BYTE ADDRESS 
INPUT MEMORY MODULE ADDRESS. 
INPUT RANGE RESIOUE 
OUTPUT BUFFER CONTROL. 
INPUT CNFG REGISTER A 
OUTPUT CNFG REGISTER A 
INPUT. CNFG REGISTER 8. 
OUTPUT.CNFG REGISTER 8B 


INPUT STATUS REG. 1 
INPUT STATUS REG 2 
INPUT. DEVICE ID 


SIMPLE LOAD (NO DIRECTION) 
LOAD AND START DCW EXECUTION (TO US) 
LOAD AND START DCW EXECUTION CFROM US) 


*MISCELLANEOUS CHANNELS 


* 


CPUCCH 


BTLDCH 
LASTCH 
* 
x 
*CLOCK 


* 


EQU 
EQU 
EQU 


0 
z'0400' 
Z"*FF8O0" 


CHANNEL. OF CPU#O 
BOOTLOAD CHANNEL | 
LAST POSSIBLE L6 CHANNEL TO CHECK FOR DISKETTE 


BLOCK DEFINITIONS 


FPTR. EQU 1 
LPTR EQU 2 


* 


USRDTA EQU 3 


* 


SWORD EQU 3 
UWORD EQU 4 
RWORD EQU 6 


FIRST BLOCK. POINTER 
LAST BLOCK POINTER (SAF) 


START OF DATA IN QUEUE BLOCKS 
S~REGISTER OR STATUS 


USERS XB7 
RUN ADDRESS 


PAGE 0002 


SRT PEL NT ET PPE A OE: A i A ce A AT-M RS TSN, SEs TERE TR PRR OR AGE TR TE A SN I PRE 


= SR EL 


4 
a 
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000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
0000 86 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 


SOFTWARE 


000D 
OOOA 
0018 
ODOA 


0030 
0031 
0032 
0033 
0034 


— 0035 


0036 
0037 
0038 
0039 


0041 
0042 
0043 


0044. 


0045 
0046 
0047 
0048 
0049 
OO4A 
004B 
004C 
0040 
OO4E 
OO4F 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 


0059. 


OO5SA 
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2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 


/ESECT 

* 

*ASCII VALUES 

«x 

*CONTROL CHARACTERS 
* 

SASCCR EQU 13 
$ASCLF EQU 10 
SASCEC EQU 27 
S$CRLF EQU SASCCR*Z'0100'+SASCLF 
*® 

*NUMBERS (0-9) 
* 

$ASCO EQU 48 
$ASC1 EQU 49 
$ASC2 EQU 50 
$ASC3 EQU 51 
SASC4 EQU 52 
SASC5 EQU 53 
SASC6 EQU 54 
$S$ASC7 EQU 55 
S$ASC8 EQU 56 
$ASCI EQU 57 
* 

*LETTERS (A-2). 
* 

SASCA EQU 65. 
SASCB EQU 66 
SASCC EQU 67 
SASCD EQU 68 
SASCE EQU 69 
SASCF EQU 70 
$ASCG EQU 71 
$ASCH EQU 72 
$ASCI EQU 73 
SASCJ EQU 74 
SASCK EQU 75 
$ASCL EQU 76 
SASCM EQU 77 
SASCN EQU 78 
SASCO EQU 79 
SASCP EQU 80 
SASCQ EQU 81 
SASCR EQU 82. 
SASCS EQU 83 
SASCT EQU 84 
SASCU EQU 85 
SASCV EQU 86 
SASCW EQU 87 
SASCX EQU 88 
SASCY EQU 89 
$ASCZ EQU 90 
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C/R L/F PAIR 
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DBTL SOFTWARE “SAF 1981/12/24 10:12:47 HRF ASSEMBLER DTSS L-6 HOST RESIDENT. FACILITY PAGE 0004 
e 000105 2052 /EJECT e 
000106 2053 * 
@ 000107 2054 *SPECIAL CHARACTERS ) 
, 000108 2055 * ° ; 
000109 0020 2056 SASCSP. EQU 32 
@ 000110 0024 2057 S$ASCDL EQU 36 & 
| 000111 0027 2058 S$ASCAP EQU 39 
000112 0028 2059 $S$ASCLP EQU 40 
e 000113 0029 2060 $ASCRP EQU 41. @ 
! 000114 002A 2061 $ASCAS EQU 42 
000115 0028 2062 SASCPL EQU 43 
| ® 000116 002c 2063 SASCCM EQU 44 e 
, 000117 002D 2064 $ASCDS EQU 45 
| 000118 OO2E. 2065 SASCDT. EQU 46 
® 000119 OO2F 2066 S$ASCFS EQU 47 ® 
000120 003A 2067 SASCCN EQU 58 
| 000121 0038 2068 $ASCSC. EQU 59 
, e 000122 003¢ 2069 S$ASCLT EQu 60 © 
| 000123 003D 2070 $ASCEQ EQU 61 
| 000124 OO3E 2071 $ASCGT EQU 62 
| e 000125. OO3F. 2072 SASCQM EQU 63 ® 
: 000126 0040 2073 SASCAT EQU 64 
: 000127 OOSC 2074 $ASCBS EQU 92 
| e 000128 ~OOSE 2075 SASCUA EQU 94 ® 
| 000129 OOSF 2076 SASCBA EQU 95. 
| 000130 OO7F 2077 SASCRO EQU 127 
’ e 000131 7E7E 2078 S$RORO EQU SASCRO*Z'0100"'+SASCRO TIME DELAY PAIR e 
000132 2079 »* 
; 000133 2080 *CONTROL CHARACTERS 
: e 000134 2081 * e 
: 000135 0005 2082 SACCE EQU SASCE-64 
: 000136 0018 2083 SACCX EQU $ASCX-64 
‘ e 000137 001A 2084 $ACCZ EQU $ASCZ-64 e 
f 000138 2085 * | 7 va 
: 000139 0009 2086 S$ASCHT EQU 9 HORIZONTAL TAB 
‘ e 000140 0008 2087 S$ASCVT EQU 11 VERTICAL TAB e 
: 000141 o00c 2088 SASCFF EQU 12. FORM FEED 
: 000142 0019 2089 $SASCEM EQU 25 END MEDIA 
i e 000143 0010 2090 SASCGS EQU 29 GROUP SEPERATOR e 
. 000144 OO1TE 2091 $SASCRS EQU 30 RECORD SEPERATOR 
e @ 
@ © 
© @ 
@ e 
| 
@ e 


‘| 
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SOFTWARE 

000145 

000146 

000147 

000148 

000149 0000 
000150 0002 
000151 0003 
000152 0004 
000153 0005 
000154 0006 
000155 OOOA 
000156 000B 
000157 OogOoc 
000158 000D 
000159 

000160 0010 
000161 

000162 

000163 

000164 

000165 0040 
000166 

000167 0040 
000168 0041. 
000169 0042 
000170 0043 
000171 0044 
000172 0045 
000173 0046 
000174 

000175 0060 
000176 0060 
000177 0061 
000178 0062 
000179 0063 
000180 0064 
0001 81 0065 
000182 0066 
000183 0067 
0001 84 

000185 0068 
000186 0068 
000187 0069 
000188 OO6A 
000189 0068 
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2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2124 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 


/EJECT 
* r 
*SPEED ASSIGNMENT TABLES 
* , , 
$510 EQU 0 LEVEL6 CODING FOR SPEED TABLES 
$S15 EQU 2 

$S30 EQU 3 

$S60 EQU 4 

$S120 EQU 5 

$S180 EQU 6 


$8240 EQu 10 


$3480 EQU 11 
$S960 EQU ile 
$$1920 EQU 13 


* 

SSMAX EQU 16 UP TO SIXTEEN DIFFERENT SPEED SETTINGS 

: : 

*SET MODE CONSTANTS 

* 

smM$G0O0 Eau 2°0040' BASE FOR MODE SETTING COMMANDS 
* : ; 

SMSECH EQU 2'0040' 8 SET ECHOPLEX 

SM$ROT EQU 2°0041' SET RAW OUTPUT. 

SMSMFR EQU Z*0042' | “MAINFRAME. READY. 

SMSEOO EQU 2'0043' - MAINFRAME LOGICAL END OF OUTPUT 
SMSFRD EQU Z*0044° SET FRIDEN MODE. 

SM$RDO EQU Z°0045" READ OUTSTANDING 

SMSIDY EQU 2'0046' IDLE DELAY (TIME/FILL) 


SMSDLY EQU Z2"°0060' 
SMSDLO EQU SMSDLY+0 
SMSDL1 EQU SMSDLY+1 
SM$DL2 EQU SMSDLY+2 
SMSDL3 EQU SMSDLY+3 
SM$DL4 EQU SMSDLY+4 
SMSDL5 EQU SMSDLY+5 
SM$DL6 EQU SMSDLY+6 
SMSDL7 EQU SMSDLY+7 
* 

SMSOMD EQU 2°0068' SET OUTPUT MODE 
SMSOMO EQU SMSOMD+0 

SMSOM1 EQU SMSOMD+1 

SMSOM2 EQU SMSOMD+2 

SMSOM3 EQU SMSOMD+3 


SET DELAY PARAMETERS 
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+ TREES <2-F 
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DBTL 


000190 
000191 
000192 
000193 


000194. 


000195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 


000206 


000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 
000231 
000232 
000233 
000234 
000235 
000236 
000237 


| 
| 
| 
| 
| 
| 
| 
: 


SOFTWARE 


0001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 
0100 
0200 
0400 
0800 
1000 
2000 
4000 
8000 


7000 
OFOO 
0070 
OOOF 
9090 


FFFC 
FRFFF 
0000 
0001 
0003 
0004 
0005 
0008 
OO0C 
0013 
0014 
0018 
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3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
3014 


3015. 
3016. 


3017 
3018 
3019 
3020 
3021 
3022 
3023 


3024. 


3025 
3026 
3027 
3028 
3029 
3030 


3031 


3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 


/EJECT 
* 


* 


10: 
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*HARDWARE SPECIFIC INFORMATION 


*START OF INTERRUPT VECTOR (IVOO) AND FAULT. VECTOR (FVOO) 


« +1=1V01 


~1=FV01 


kek kkKKRKHERR TVECT EQU 2'0080' 


* 
*BIT M 
* 
SMKB7. 
SMKB6 
SMKBS5 
SMKB4 
S$MKB3 
SMKBe 
SMKB1 


ASK 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQu 


ASSIGNMENTS 


z*0001° 
z*0002' 
2'0004* 
z*0008'° 
z*0010° 
Z*°0020° 
Z*0040° 


SMKI EQU 2'0080° 


SMKR7 
SMKR6. 
SMKRS5 
SMKRG 
SMKR3. 
SMKR2 
S$MKR1 
SMKM1 
* 


SMKR13 


SMKR47 


$MKB13 
SMKB47 


-SMKSTD 


* 
x 


EQU 


EQU 


EQU 
EQU 
EQU 
EQu 
EQU 
EQU 


EQU 
EQU 
EQU 
EQYU 
EQU 


z*0100° 
z'0200° 
2*0400° 
7*0800' 
Z*1000° 
2*2000" 
2*4000! 
z*8000' 


SMKRIFSMKR2+SMAKRS 
SMKR4G+tSMKRO+SMKRO+SMKR7 
SMKBI+SMKB2+3MKB3 
SMKB4+SMKB54+35MKB6+3MKB7 


SMKMT+S3MKI4S5MKR3+5MK B3 STANDARD REGISTERS TO SAVE 


*IV SAVED REGISTERS OFFSET. 


x 
SIVLEV 
SIVTISA 
SIVDEV 
SIVMSK 


SIVP E 


SIVS E 
SIVREG 


S$IVB1 EQU 11 


EQU 
EQU 
EQU 
EQU 


Qu 3 


QU 4 
EQU 


Z'FFFC? LEVEL ASSOCIATED (SOFT) 
Z*FFFF* _TSAP | 

0 DEVICE | 

1 MASK 


5 START OF REGISTERS 


S$IVI. EQU 12 
S$IVR1 EQU 19 
S$IVM1 EQU 20 
$IVT EQU 27 


DTSS L~6 HOST RESIDENT. FACILITY 


PR EC RCP ERR AN TO EH NN SPE RE SP PN, REE: YP A NE SN =  T EY TE TS A ER ;  R  a E  e p v  S  : ERSTNR SET SOIR  ES SPIZ GH 
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e ® 
DBTL SOFTWARE ~SAF 1981/12/24 10:12:47 HRF ASSEMBLER DTSS L-6 HOST RESIDENT. FACILITY PAGE 000? 
e 000238 3048 /EJECT e 
| 000239 3049 * 
@ 000240 3050 *TRAP SAVE AREA OFFSETS — e@ 
| 000241 3051 * | 
000242. 0000 3052. $TSAL EQU 0 NEXT LINK 
© 000243 0001 3053 STSAI EQU 1 INDICATOR REGISTER @ 
000244 0002 3054 STSAR3 EQU 2 XR3 | 
000245 0003 3055 $TSACM EQU 3 COMMAND 
e 000246 0004 3056 $TSAZ EQU 4 Z-WORD & 
, 000247 0005 3057 $TSAA EQU 5 ADDRESS 
| 000248 0006 3058 STSAP EQU 6 P-REGISTER 
@ 000249 0001 3059 $TSAPX EQU STSAP-$STSAA — P-REG AS ADDRESSED BY TRAP ROUTINE e 
000250 0007 3060 S$TSAB3 EQU 7 XB3 oe 
000251 0003 3061 STSATM EQU 8-S$TSAA | TEMP WORD 
e 000252 0008 3062 STSAWD EQU 8 FOR NON-TRAP ROUTINES, THE TEMP WORD e 
) 000253 0009 3063 $TSALN EQU 9 LENGTH OF TRAP SAVE AREA > 
| 000254 3064 * yo agit ls 
@ 000255 3065 * ) 
) 000256 6000 3066 SSRGP3 EQU Z2'6000"  SREGISTER PRIORITY 3 
| 000257 3067 * | — ; 
@ 000258 3068 * : ) 
; 000259 3069 *LEVEL INSTRUCION WORDS 
| 000260 3070 * calito : : 7 
- @ 000261 803F 3071 $LVEXI EQU 2*803F" | SUSPEND, SCAN, AND DISPATCH e 
| 000262 4000 3072 $LVSCH EQU z2*4000° ~ SCHEDULE INTERRUPT» DEFER 
: 000263 8000. 3073 SLVEXE EQU 2'8000' | = SUSPEND,» SCAN» SCHEDULE, AND DISPATCH 
© 000264 | 0000 (3074 $LVENT EQU z*0000' ~ SCHEDULEs SCAN» DISPATCH (RETURN LATER) e 
- 000265 0080 3075 $LVDIS EQU Z*0080" — ENHIBIT 
4 000266 8080 3076 S$LVDSX EQU Z'8080' | SUSPEND, INHIBIT 
e e 000267 0000 3077 $LVDIE EQU $LVENT+0 | ~ CRASH LEVEL INSTRUCTIONS DATA ® 
“ 000268 3078 * | 
: 000269 3079 *MCDE REGISTER. CONSTANTS 
* e 000270 3080 * e 
* 000271 8080 3081 SM1JST EQU Z'8080' | SET JUMP TRACE 
“ 000272 8000 — 3082 $M1yNRS EQU 2'8000' | RESET JUMP TRACE 
t, ® 000273 0080 3083 $M1JTS EQU 2'0080° TEST JUMP TRACE e 
_ & e 
e ® 
® e 
 ©@ e 
- ® 
| © e 
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Soest baw FR att 


e@ 


DBTL 


000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
0002 86 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 


SOFTWARE 


0000 
0001 
0002 
0003 
0004 
0005 
0008 


QOODA . 


0010 
0030 
0031 
0036 


0037. 


0038 
003¢C 
OO3E 


0078 
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3084 
3085 
3086 
3087 
3088 
3089 
3090 


3091 


3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
3104 
3105 


EJECT 


x 


1031 
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*ASSIGNED LEVELS 


* 
ERRLEV 
WOTLEV 
TSOVLY 
HANGLV 
RTCLEV 
WATLEV 
MCPLEV 
SX25LV 
CPLRLV 
NETLEV 
SBSCLV 
CNSLEV 
SYCLEV 
MSGLEV 
DBGLEV 
DEVLEV 
* 


ONESEC 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU. 
EQu 


EQU 


0 POWER FAIL. AND CRASH LEVEL 

1 WATCH DOG TIMER LEVEL 

2 TRAP SAVE AREA OVERFLOW AREA 
3 STARTUP AND HANG LEVEL 

4 REAL TIME CLOCK LEVEL 

5 “WATCH COPY LEVEL 

8 ASYNC MLCP LINE CARD 


10 SYNC MLCP LINE CARD: (USING x25) 

16 COUPLER LEVELS (16417,18419) 

48 X25 NETWORK PACKET LEVEL 

49 SYNC MLCP LINE CARD. CUSING BSC) 

54 CONSOLE HARDWARE LEVEL (BASE FOR SOFTWARE) 
CNSLEV+1 | ~ SYSTEMS CONTROL. LEVEL 

SYCLEV+1 SYSTEMS MESSAGES LEVEL 
60 DEBUGGER PRIMARY; SECONDARY=+1 : 

62 LOWEST. LEVEL FOR INVERTED SYNCHRONIZATION 

120 CLOCK IS 120. TIMES PER SECOND (.0083353). 
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_> BS aieate 


c 
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000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 
000320 
000321 
000322 
000323 
000324 
000325 


000326 


000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
000341 
000342 


SOFTWARE 


2408 
2010 
2118 
2158 
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4000 
4010 
4020 


4030 


4040 
4050 
4060 
4070 
40380 
4090 
4100 


-4110 


4120 
4130 
4140 


4150. 


4160 
4170 


4180. 


4190 
4200 
4210 
4220 
4230 
4240 
4250 


4260. 


4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 


4350. 


4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 


/EJECT 
* 

* INPUT 
x 

*FIRST 
CURBUF 
CURLEN 
NSBERR 
MFLAGS 
* 


* 
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MESSAGE BUFFER DEFINITION 


BUFFER IN LINK WORD(O) 
EQU 2. 

EQU CURBUF +1 
EQU CURLEN+1 
EQU NSBERR+1 


*INTERNAL TO. MESSAGE FLAGS (MFLAGS) 


* 
LTLONG 
IFINAL 
TRPCLK 
* 

* 


* 
FRSTCK 
SCNDCK 
INPMAX 
STYFGS 
* 

* 


EQU 2*8000' 
EQU 2°4000' 
EQU 2°2000° 


*MESSAGE STYLE BLOCK DEFINITION 


EQU 0 

EQU FRSTCK+1 
EQU SCNDCK+1 
EQU INPMAX+1 


*DEFINITIONS OF INPUT STYPE BITS. 


FIRST CLOCK. TO SET. 
es SECOND (SUBSEQUENT) CLOCK TO SET 
/ MAX LINE LENGTH 
INPUT STYLE BITS 


DTSS L-6 HOST RESIDENT FACILITY PAGE OCOS 


CURRENT BUFFER ADDRESS 


CURRENT LENGTH 
ERROR COUNTERS 
INTERNAL TO MESSAGE FLAGS. 


LINE IS CURRENTLY. TOO LONG 
FINAL. DELIVERY 
FINAL DELIVERY TRAPS CLOCKING READ 


* 
UNEDIT EQU 2° 8000" DATA SHOULD NOT BE EDITED 

IGNLTL EQU 2°4000° LINE TOO LONGS ARE IGNORED CELSE. MSG” ABORT) 
IGNNSB EQU 2'2000° ~ NO-STOP-BIT ERRORS ARE COUNTED AND FLAGGED 
ESCQTL EQU 2°1000' ESCAPES DONE WITH NO MESSAGE 

ESCOTA EQU 2°0800" ESCAPE IS DATA CELSE IT IS LINE CANCEL) 

BKRDTA EQU 2'0400' BACKARROW IS DATA CELSE IT 1S CHARACTER DELETE) 
IGNENQ EQU 2'0200' ~ ENQUIRY IS IGNORED CELSE MSG GENERATED) 

IGNLFD EQU Z'0100° “LINE. FEEDS IGNORED (ELSE TREATED AS DATA) 
IGNDEL EQU 2'0080° RUBOUTS ARE IGNORED CELSE TREATED AS DATA) 
IGNULL EQU 2'0040° ~ NULLS ARE IGNORED CELSE TREATED AS BREAK) 
FOTO III IOI IIIGIOIUIGIOIOIOIOIGI III GIO III IOI III IOI IOI 

* * 

* STANDARD DEVICE TYPE ID'S * 

# . ? * 
TORII IOI II IO III OIRO I IOI IOI IOI IOI OI IO TOI TOOT IOI tk tk 

COUPID  EQU 2°2408" COUPLER DEVICE TYPE 

DISKID EQU Z*°2010" DIU 9101 DISKETTE 

ASYID EQU Z*2118* ASYNCHRONOUS CHANN”EL ID FOR MLCP 

BISID EQU- Z*2158* BISYNC CHANN"EL ID FOR MLCP 


rE Ta EAT ST IN 2 NE IR AO 8 NS TI I REIN RE EN PM I HI TY TE REG AT TET TET NET I I TT a eT I PT TE ET TNE NT TTT NT TERY a EMMIS REM NE ITN, TO TE YT TSR NPN MR TR 2 NP ARN cP RE A Pi a MG SSNs SE NT 2 ARE I SY A SPR A PTH PE A FE PST APE ST 


+ * + igh ao) Te Rg I ge CT! ee NE Tae eee ee ee 8 Ee 


DBTL 


000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 
000386 
000387 
000388 
000389 
000390 
000391 


SOFTWARE 


0002 
0005 
0006 


0007 
0008 
0009 


OOOA 
0008 
oooc 
O00D 
OOOE 
OOOF 


0010. 


0011 


0012 
0013 
0014 
0015 
0016 


0017. 


0019 
0018 
0024 
0026 
0028 
002C 
OO2E 


0030 


O03C 


8000 
4000 
2000 


0800 
0400 


~SAF 
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5000 
5010 
5020 
5030 


5040 


5050 
5060 
5070 
5080 
5090 


5100. 


5110 


5120 


5130 
51.40 
5150 
5160 
5170 
5180 


5190 
5200. 


5210 
5220 
5230 


5240 


5250 
5260 
5270 
5280 
5290 
5300 
5310 


5320. 


5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 


5410 


5420 
5430 


5440. 
5450 


5460 
5470 


9480. 


JEJECT 
x 
*COUPLER CONTROL BLOCK DEFINITIONS 


* 


DTSS L-6 HOST RESIDENT FACILITY PAGE 0010 


*LEAVE ROOM FOR QUEUEING. PRIORITY AND LINK 


USERQ EQU 2 

CPFLGS EQU USERQ+3 
COUPST EQU CPFLGS+1 
* ‘ : 
PSBCLK EQU COUPST +1 
PSBCNT EQU PSBCLK+1 
DEADCT EQU PSBCNT+1 
* . ; 
OMSGFB EQU DEADCT+1 
OMSGFP EQU OMSGFB+1 


OMSGLB EQU OMSGFP+1 


CMSGLP. EQU OMSGLB+1 
IMSGBP EQU OMSGLP+1 


IMSGCM EQU IMSGBP+1 


IMSGLN EQU IMSGCM+1 
IMSGBK EQU IMSGLN+1 
wo ao 
SPICMD EQU IMSGBK+1 
TAL66 EQU SPICMD+1 
TALE. EQU TAL66+1. 
IOWDS EQU TAL6+1 
L6BUFR EQU IOWDS+1 
HG6DTA EQU LO6OBUFR+1 
MBXLOC EQU H66DTA+2 


MBXPKG EQU MBXLOC+2 


STSLOC EQU MBXPKG+9 

STATUS EQU STSLOC+2 

CIVDEV EQU STATUS+5 

LSTSTS EQU CIVDEV+1 

SPISTS EQU LSTSTS+2 

* 

DCWLST EQU SPISTS+#2 

* 

CPLRBL EQU DCWLST+12 

* 

* . 
*DEFINITIONS OF COUPLER FLAGS 
: | | 
1OBUSY EQU Z*8000' 

BUFBSY EQU 2*4000° 

SLRDCK EQU Z'2000' 

3 

RLDSET EQU 2'0800' 

L6RSET EQU 2'0400' 


QUEUE. OF USERS CONNECTED TO THIS COUPLER 


FLAGS CONTROLLING FLOW 
COUPLER 1/0 STATE 


PLEASE STAND BY. CLOCK 
PLEASE STAND. BY COUNTER 
DEAD CONNECTION COUNT 


FIRST BUFFER OF OUTPUT MESSAGES 
ASSOCIATED. POINTER 
LAST BUFFER OF OUTPUT MESSAGES. 


- ASSOCIATED POINTER 
INPUT BUFFER PARSE POINTER 
INPUT COMMAND/LENGTH 
INPUT PORTCLINE) | 
STARTING BLOCK. OF MESSAGE 


SPECIAL INTERRUPT COMMAND 


H66 REQUESTED 10 WORDS 


LEVEL6 ALLOWED. 10 WORDS 
ACTUAL NUMBER OF WORDS IO'ED 
IO ADDRESS IN LEVEL6 


10 ADDRESS IN HIS66U0 


LOCATION OF MAILBOX IN H1IS6600. 
CONTENTS OF HIS66UU MAILBOX . 


LOCATION OF STATUS IN H1IS6600 


CONTENTS OF STATUS WRITTEN.TO H1IS6600 


LAST DEV WORD FROM INTERRUPT 
LAST HARDWARE STATUS READ 
SPURIOUS INTERRUPT STATUS 
DCW LIST FOR I10 OPERATIONS 


COUPLER BLOCK LENGTH 


~ BUSY DOING TERMINATE REQUIRED 1/0 
BUFFER ACTIVE 
~ SLOW READS CLOCK RUNNING. 


RELOAD AT EVERY REQUEST 


LEVEL6 HAS RESET ALL USERS 


eoeceoeeoevre3wroeneeeeweee & © © @ 8 


| 
! 
| 
| 
| 
: 
| 
: 
| 
| 
: 
| 
! 
| 
| 
, 
| 
: 
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DBT L 


000392. 


000393 


000394. 


000395 
000396 
000397 
000398 
000399 
000400 
000401 
000402 
000403 
000404 
000405 
000406 
000407 
000408 
000409 
000410 
000411 
000412 
000413 
000414 
000415 
000416 
000417 
000418 
000419 
000420 


000421. 


000422 
000423 
000424 
000425 
000426 
000427 
000428 
000429 
000430 
000431 
000432 
000433 
000434 
000435 
0004 36 


SOFTWARE 


0020 
0030 


0004 


0002 
0200 


0003 
0007 


00C3 


0011 
0012 
0013 


0038 


0030. 


OO3E 
O003C 


0018 


0001 
0002 
0003 
0011 
0021 
0041 
0051 
0061 


~SAF 1981/12/24 


5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 


5530. 


5590 
5600 
5610 
5620 


5630. 


5640 
5650 
5660 
5670 
5680 
5690 
$700 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 
9850 
9860 
5870 
5880 
5890 
5900 
5910 
5920 
5930 
5940 


/EJECT 


* 


* 
LO6RDC 
L66WTC 
* 

MBXWDS 
STSWDS 


CPBFLN. 


* 
* 


*HIS6600 INTERRUPT 


* 
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Eau 2'0020'° 


EQU 


EQU 
EQU 


2°0030° 


4 
2 
512 


H66TRM EQU 3 
H6O6SPC EQU 7 


* 


INTH66 EQU Z2*O0003'+$10CH3 


* 
* 


*MISCELLANEOUS 


x 


* 


COUPSL EQU CPLRLV+1 
COUPTL EQU COUPSL+1 
COUPWL EQU COUPTL+1 


*DCW COMMANDS 


x 
DWDSCI 
DW6T66 
DW66T6 
DWCNFG 
* 


DCWLEN 
* 


x 
ASCMOD 
BCDMOD 
BINMOD 
TLAMOD 
TLBMOD 
MSBMOD 
TLCMOD 
TLOMOD 


EQU 
EQU 
EQU 
EQU 


EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQu 


Z*0038' 
Z*003D' 


Z*O03E* 
z*0Q03C° 


2*6*2 


Z'0001° 
z*o002* 


z*0003' 
z*0011! 
Z*0021' 


z*0041° 
Z*0051'° 
z*0061° 


HRF ASSEMBLER 


DTSS L-6 HOST RESIDENT FACILITY 


*CONTROL INFORMATION FOR COUPLER 


AGREED CONSTANT FOR READ. 
AGREED CONSTANT FOR WRITE 


MBX 1S 4 WORDS ON H66 SIDE 
STATUS IS 2. WORDS ON H66 SIDE 


~L6 LENGTH OF.1/0 BUFFER 


CELLS 


INITIATE/TERMINATE 
SPECIAL : 7 


INTERRUPT. HIS6600 


L610 INFORMATION. 


SPECIAL INTERRUPT. (FROM HIS6600). 


TERMINATE INTERRUPT FOR L6 OPERATION 


SLAVE BUFFER PROCESSING LEVEL 


‘DISCONNECT AND INTERRUPT 
XFER L6 TO H66 

—XFER H66 TO L6 

STORE CONFIGURATION STATUS 


LENGTH OF OUR DCW LISTS 


*DATA TRANSFER MODES 


ASCII MODE 

BCD MODE 
BINARY MODE 

 TRANSLITERATION MODE A 

> TRANSLITERATION MODE B 

OASCII MODE WITH MSB TEST 
—“TRANSLITERATION MODE A WITH MSB TEST 
“TRANSLITERATION MODE 8 WITH MSB.TEST 
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000437 
000438 
000439 
000440 
000441 


000442 


000443 
000444 
000445 


SOFTWARE 


0000 
0001 
0002 
0003 
0004 
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5950 
5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 
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EJECT 

* 

*PENDING STATES FOR COUPLER SOFTWARE | 
: 
CIDLE EQu 0 IDLE 

MBXRD EQU 1 MBX READING STATE 
IOXFR EQU 2 10 TRANSFER STATE 
STSWT EQU 3 STATUS WRITE STATE 
CFGRD EQU 4 


CONFIGURATION READ 


eoeoeeeeeeeeeeeeeeeeeeeeeese @ 
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000446 
000447 
000448 
000449 
000450 
000451 
000452 
000453 
000454 
000455 
000456 
000457 


000458 


000459. 


000460 
000461 


000462 


000463. 


000464. 


000465 


000466 


000467 


000468 


SOFTWARE | 


013A 
0366 
O35F 
0010 


0014 
0017 


0020 
0100 


OO7F 
OO7E 
007D 
oo7C 
0078 


OO7A 
0079 
0078 
0077 
0076 


0075 
0074 
0073 
0072 
0071 


0070 


OO 6F 
OO6E 
006D 


006C 


0068 


1981/12/24 
10000 /EVEC 
10010 «xxx 
10020 * _TH 
10030 * 

10040 * 
10050 * 
10060 * 
10070 w«*eae 
10080. * 
10090. *BOCT 
10100 * 
101190 XDEF 
10120 XDEF 
10130 XDEF 
101490 XDEF 
10150 XDEF 
10160 xXDEF 
10170 XDEF 
10180 xXDEF 
10190 XDEF 
10200 XDEF 
10210 XDEF 

10220 XDEF 


10:12:47 HRF ASSEMBLER DTSS L-6. HOST RESIDENT. FACILITY PAGE 0013 
T ** DISKETTE BOOTSTRAP ROUTINE ** 

KEK KKK KK EEK RK EK K KR KEK KE KKEKEKEKEKKEKEEK EK 

E BOOTSTRAP STEPS ARE: 

1e READ TRACK Os SECTORS 5-25 (TRAP ROUTINES» ETC..-) 

2. READ TRACK O» SECTORS 1-4 (TRAP VECTORS» 0-100 (16)). 

34 READ TRACKS 1% ON : 

4 CLIMB THROUGH LEVEL 4 VECTOR 


KKK KKK KKK KKK KKK KEKE KKK EKKKKEKEKKK KKK 
LOAD SOFTWARE AND LOW CORE DEFINITIONS 

SERROR LEVEL WHERE CRASH OCCURRED 

MODULE LIST OF MODULE POINTERS 

TRAPER COMMON TRAP CATCH 

STSALS 

SRTCLK se SWOTMR 

SINTBT. ‘Shen RURT SCHEDULE BITS 

$BOOT 


$TVOI1eS$TVO2,$TV03,$TVO4-5TV05 


$TVO6/ETVO7-STVO843STVOIZ-STVIO 


$TVI1-3TVI2-$TV1IZS25TVI4G,5TV15 


STV16se$TVI7 es STVI8s STVI9-STV20 


$STV21-8TV22e3TV23-3STV24-5TV25. 


®@ 
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OO6A 
0069 
0068 
0067 . 
000469 10230 XDEF STV26-$TV27 +STV28,$TV29-$TV30 
0066 
0065 
0064 
0063 
0062 
000470 10240 XDEF STV31-$STV32-$TV3345TV34e-STV35 
0061 
0060 
OO5F 
OO5E 
005D 
000471 10250 XDEF STV36e-$TV37 +S TV38,5TV3945TV40 
QOSC 
0058 
OOSA 
0059 
0058 oo . 
000472 10260 XDEF STV41-$TV42-8TV4353TV44,3TV4E5 
0057 
0056 
0055 
0054 
0053 
000473 10270 xXDEF $TV46 
00:52 


*eeeeeeee%eee%eeee8080e086880800 @ 
eeeeeeeeeeeeeee%e¢%eee80 0 80 80 @ 


e = 
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000474 
000475 
000476 
000477 
000478 
000479 
000480 
000481 
000482 


000483. 


0004 84 
000485 
000486 
000487 
000488 
000489 
000490 


000491. 


000492 
000493 
000494 
000495 
000496 
000497 
000498 
000499 
000500 
000591 
000502 
000503 
000504 
000505 
000506 
0005907 
000508 
000509 
000510 
000511 
000512 
000513 
000514 
000515 
000516 
000517 
000518 


000519. 


000520 
000521 
000522 
000523 
000524 
000525 


SOFTWARE 
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10280 
10290 
10300 
10310 
10320 
10330 
10340. 
10350 
10360. 
10370 
10380 
10390 
10400 


-10410 


10420 
10430 
10440. 
10450 
10460 
10470 
10480 
10490 
10500 
10510 
10520 
10530. 
10540 
10550 
10560 
10570 
10580 
10590 
10600 
10610 
10620 
10630 
10640. 
10650 
10660 
10670 
10680 
10690 
10700 
10710 
10720 
10730 
10740 
10750. 
10760 
10770 
10780 
10790 


/JEJECT 


* 
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* BOOTLOAD SOFTWARE AND LOW CORE DEFINITIONS 


* 

* ; 
HEADR 
ZERO 
ONE 
TWO 

* 

* 
RANGE 
CHANEL 
TRACK 
* 

TRNS 
BASE 

* 

* 
OSADDR 
OSRANG 
OSChA 


OSCWB 


OSINTC 
OSTASK 
OSCNTL 
* 
ISRANG 
ISCWA 
ISCwB 
ISINTC 
ISDVID 
ISTASK 
ISSTAT 
* 

* 
ORCALS 
OSEEKS 
OFRMTS 
ORWS 
ODDRWS 
CDRWS 
OWRAPS 


* 
x 
U 
* 
* 
* 


TRKSIZ 
SECSIZ 


LOWSEC 


DEFINITIONS 


EQU 104 NUMBER OF FORMAT BYTES/TRACK ON D01U9101 
EQU 0 . 

EQU 1 

EQU 2 


REGISTER DEFINTIONS 


EQU SR2 NUMBER OF BYTES 

EQU $R1 CHANNEL CWITH DIRECTION). 
EQU BR4 TRACK NUMBER 

EQU $B6 SUBROUTINE RETURN REGISTER 
EQU $B7 CURRENT SEGMENT BEGINNING 


DISKETTE OPERATION CODES 


EQU 2z*0009' MEMORY ADDRESS SET. 

EQU 2° ob0D* SET TRANSFER LENGTH IN BYTES 
EQU Z*0011! SET TRACK&HEAD | 

EQU “a2 00134 SET SECTOR NUMBER 

EQU 2'0003" SET INTERRUPT CONTROL WORD 
EQU z'0007! OUTPUT TASK REG. CREAD&WRITE) | 
EQU z'0001' SET CONTROL WORD 

EQU z*o00c* READ RANGE REG 

EQU’ 20010" READ TRACK&HEAD 

EQU Z*0012* READ SECTOR NUMBER 

EQU ~2z*0002' READ INTERRUPT CONTROL 

EQU z*0026' GET DEVICE TYPE. 

EQU z*0006' READ TASK REG 

EQU Z7*0018° GET STATUS 


DEVICE ORDERS (DATA BUS COMMANDS) | 


EQU z*O0000* RECALIBRATE 

EQU z*°0100' . SEEK . 

EQU z*8000' FORMATTED WRITE 

EQU z*8100° READ/WRITE DATA 

EQU z*8500' DELETED DATA READ/WRITE 
EQU 2*8300" DIAGNOSTIC READ/WRITE 
EQU z*coo0* WRAPAROUND READ/WRITE. 
EQU Z*°0700°* UPPER HALF ADJUSTER 


DISKETTE. DEFINTIONS 


EQU 26*128 BYTE PER TRACK 
EQU 128 BYTES PER SECTOR 
EQU | 5*128 BYTES OF SHUFFLED LOW MEMORY 


eeeeree3eeeeeee ee @© © &@ @ OA 
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000526 
000527 
000528 
000529 
000530 


000531 


000532. 


SOFTWARE 


0080 


0100 
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10800 /EJECT 
10810 * 
10820 * 
10830 

10840 


. 10850 


10860 
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XLOC 
XDEF 


XDEF 


XLOC 


HRF ASSEMBLER 


ENDING 
SIVECT 


START 


INIT 


DTSS L=6 HOST RESIDENT FACILITY 


END OF CONGLOMERATION 


BEGINNING MARKER 


REAL SOFTWARE INIT 
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e 000533 10870 /EVECT e 

000534 10880 * 

| @ 000535 TO 890 eR IOI III III IOI IOI I IOI IOI II IOI III ek ) 
| 000536 10900 * THE FOLLOWING "*SURREALISTIC". TRAP VECTORS,» ETC 
| 000537 10910 x ARE DEFINED TO CORRECTLY SATISFIY XDEF'S 
: e 000538 10920 * EXPECTED BY THE REST OF THE: L6 SOFTWARE. e 
i 000539 VOD 30 mm RHR I KR ITT IKK IOTTTOIIOIOI OK IK SOT TIO TOK RII tO Kk 
| 000540 10940 »* s | 

) 000541 0000 0000 10950 RESV 162'0000' OOx TO OFX eo 
| 000542 0010 O02E1 10960 STSALS DC <TSABKO FIRST TRAP BLOCK. (10UX) 
7 000543 0011. 0000 10970 RESV 342'0000' -JIxX T0 13x : 
@ 000544 0014 0000 10980 $RTICLK RESV 342°0000° | REAL TIME CLOCK LOCATIONS e 
| 000545 0017 QO000 10990 SWDTMR DC z'o0000' WATCH DOG TIMER 
000546 0018 0000 11000 RESV 8Z°*0000° ;  -78X THRU 1FX 

@ 000547 0020 0000 11010 S$INTBT RESV 42°0000' INTERRUPT SCHEDULE BITS e 
7 000548 11020 »* . . 
| 000549 11030 * TRAP VECTORS 
@ 000550 11040 * e 

000551. 0024 0000 11050 RESV 462'9000' | UNUSED PORTION OF SAF TRAP VECTOR 

: 000552 0052 O2FE 11060 $TV46 DC SHLTP4S6 | TRAP VECTOR 46 
| ) 000553 0053. 0300 11070 $TV45 oC <HLTP45 ere TRAP VECTOR 45 @ 
| 000554 0054 0302 11080 $TV44 DC. <HLTP44 TRAP VECTOR 44 
| 000555 0055 0304 11090 $TV43 DC <HLTP43 - . TRAP VECTOR 43 
| ) 000556 0056 0306 11100 $TV42 DC ~ €HLTP42 — TRAP VECTOR 42 e 
! 000557 0057 0308 11110 $TV41 oc <HLTP41 TRAP VECTOR 41 
| 000558 0058 O30A 141120 $TV40 DC <HLTP4O TRAP VECTOR 40 
 @ 000559 0059 030¢ 11130 $TVv39 oc <HLTP 39 _ TRAP VECTOR 39 e 
, 000560 O0O5SA OQ30E 11140 $TV38 DC <HLTP 38 | TRAP VECTOR 38 
2 000561 0058 0310 11150 $TV37 DC <HLTP 37 | TRAP VECTOR 37 
: e 000562 005c 0312 11160 $TV36 DC <HLTP36 | TRAP VECTOR 36 e 
: 000563 005d 0314 11170 $TV35 DC SHLTP35 | TRAP VECTOR 35 
: 000564 OO0SE 0316 11180 S$TV34 DC <HLTP 34 TRAP VECTOR 34 
‘ e 000565 O05F 0318 11190 $TVvV33 DC <HLTP 33 TRAP VECTOR 33 e 
a 000566 0060 O31A 11200 $TV32 DC <HLTP 32 TRAP VECTOR 32 
000567 0061 931C 11210 $TV31 DC <HLTP 31 TRAP VECTOR 31 
: ) 000568 0062 OQO31€E 11220 $TV20 DC S<HLTP30 . TRAP VECTOR 30 ) 
: 000569 0063 0320 11230 $TV29 DC <HLTP 29 TRAP VECTOR 29 
f 000570 0064 0322 11240 $TV28 DC <HLTP 28 TRAP VECTOR 28 
@ 000571 0065 0324 11250 $TV27 DC <HLTP27 TRAP VECTOR 27 e 
; 000572 0066 0326 11260 $TV26 DC <HLTP 26 TRAP VECTOR 26 
c 000573 0067 0328 11270 $TV25 DC <HLTP25 TRAP VECTOR 25 
@ 000574 0068 O32A -11280 $TV24 DC <HLTP 24 . _TRAP VECTOR 24 @ 
“ 000575 0069 032C 11290 $TV23 DC <HLTP 23 TRAP VECTOR 23 
: 000576 O06A O32E 11300 $TV22 DC SHLTP 22 | TRAP: VECTOR 22 

& 000577 0068 0330 11310 $TV21 DC <HLTP 21 TRAP VECTOR 21 ®@ 
7 000578 O006C 0332 11320 $TV20 DC <HLTP20 TRAP VECTOR 20 
: 000579 006d 0334 11330 $TV19 DC <HLTP19 OS TRAP VECTOR 19. 
| 6 000580 O06E 0336 11340 $TV18 DC <HLTP18 TRAP VECTOR 18 e 
: 000581 O0O6F. 0338 11350 $TV17 DC <HLTP17 TRAP. VECTOR 17 
| 000582 0070 O33A 11360 $TV16 DC <HLTP16 | TRAP VECTOR 16 
! e 000583. 0071 033¢ — .11370 $TV15 DC ; <HLTP 15. TRAP VECTOR 15 & 


000584 0072 033 11380 $TV14600 ot SHLTP 14. TRAP VECTOR 14 
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DTSS L=6 HOST RESIDENT. FACILITY PAGE 0018 
000585 0073 0340 11390 $TV13 Dc <HLTP13 — TRAP VECTOR 13 
000586 0074 0342 11400 $TV12 DC <HLTP12 TRAP VECTOR 12 
000587 0075 0344 11410 $Ty11 DC <HLTP 117. | TRAP VECTOR 11 
000588 0076 0346 11420 $TV10. DC  <HLTP10— TRAP VECTOR 10 
000589. 0077 0348 11430 $TVO9 Dc  <HLTP OO TRAP VECTOR 09 
000590 0078 O34A 11440 $TVO8 DC <HLTPO8> TRAP VECTOR 08 
000591 0079 0O34¢ 11450 $TVv07 DC <HLTPO? TRAP VECTOR 07 
000592 O07A O34E 11460 S$TVO6 DC <HLTPO6 * TRAP VECTOR 06 
000593 007B 0350 11470 $TVOS DC <HLTPOS TRAP VECTOR O05 
000594 o007C 0352 11480 $TVO4 DC <HLTPOG | TRAP VECTOR 04 
000595 007d 0354 11490 $TVO03 DC <HLTPO3 TRAP VECTOR 03 
000596 OO7E 0356 11500 $TVG2 Dc <HLTPO2 ~ | TRAP VECTOR O02 
000597 OO7F 035¢C 11510 $TVO1 Dc <HLTPO1 | TRAP VECTOR 01 
000598 11520 * | 
000599 11530 * 
000600 11540 * INTERRUPT VECTORS 
000601 11550 * | | | - 
000602 : 0080 11560 $IVECT EQU $ : | 8O0X START OF INTERRUPT VECTOR 
000603 0080 O02CC 11570 pc <ERRIV | LOCATION OF POWER FAIL/CRASH VECTOR 
000604 0081 9000 11580. DC z'o00008 LOCATION OF WATCH DOG TIMER VECTOR 
000605 0082 0284 11590 DC <TSOVIV. LOCATION OF TRAP SAVE AREA OVERFLOW VECTOR 
000606 0083 090000 11600 DC z*0000' HANG LEVEL ~ : 
000607 0084 029¢ 11610 DC <INITIV INITIALIZATION THEN REAL TIME CLOCK | 
000608 0085 erereye) 11620 RESV 58,/2'0000! INTERRUPT VECTORS 05 THRU 62 ARE PROGRAMMED 
000609 O0BF 0284 11630 DC <IDLEIV LOCATION OF IV63 WHICH IS IDLE VECTOR 
000610 11640 * a | : 3 
000611 OOCO 0000 11650 RESV 64/2'0000' UNUSED PORTION OF SAF INTERRUPT VECTOR 
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000612 
000613 


000614. 


000615 
000616 
000617 
000618 
000619 
000620 
000621 
000622 
000623 
000624 
000625 
000626 
000627 
000628 


000629. 


000630 
000631 
000632 


0100 
0102 


0103 


0105 


0107. 


0109 


SOFTWARE 


ABCO 0027 
4C 00 


A870 OA80. 


FB80 0480 
E3c0O 0003 
OF 80 0240 


SAF 


1981/72/24 


11660 
11670 
11680 


~11690 


11700 
11710 
11720 
11730 
11740 
11750 
11760 
11770 
11780 
11790 
11800 
11810 


~11820 
-11830 


11840 


17850 


11860 


EJEC 


* 

* 

* 

* 

x 

* 

* 

* 

x 

* READ TRACK O, 

* 

* 

START RESV 

$SBOCT RESV 
LAB 
LDV 
LDR 
LAB 
LNJ 
B 


10:12:47 HRF ASSEMBLER 


T. CODE STARTING POINT 


BOOTLOAD SOFTWARE (CSTARTS AT 0100X) 
REAL TIME CLOCK AND WATCH DOG TIMER ARE ASSUMED OFF AFTER BOOTLOAD 
EIT ET CE ee rr Tn ra eer eee 

FIRST. EXECUTION STEP - 


GETS THE TRAP ROUTINES» ETCaowe 
IN PARTICULAR» GETS REST. OF BOOTSTRAP. 


0 MARK START FOR DISKETTE WRITER 

0 START. OF BOOTSTRAP 

$B2eCMDLIS ~ SET STANDARD COMMAND LIST PTR 
TRACK » ZERO DO TRACK ZERO FIRST 

RANGE sSTRKSIZ~LOWSEC "DO ALL BUT FIRST FIVE SECTORS NOW 
BASE» <MORE2 | SET HIGHER BASE . 
_TRNSsREAD READ MOST OF TRACK O 


DTSS L-6. HOST RESTOENT FACILITY PAGE 0019 


SECTORS 5-25 


<CONT TRICKY BOOTSTRAP TRANSFER 


FER 4 OM PE RI RI TEA 2 A A Ge: PARR A ER AR a» EA A EP eo Sa RRA ATE GE A EE = ea EP OP NC RT Ee SI cA I ec RS A Ec a Eo Ee PE AE TR A GS As EPO ADE RG PM TST TT I AR TE RO TN TC TA IR OK 


Rate Seeger: See = FPS SE ee 
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000633 
000634 
000635 
000636 
000637 
000638 
000639 


000640 


000641 
000642 


000643. 


000644 
000645 
000646 
000647 
000648 
000649 
000650 
000651 
000652 
000653 
000654 
000655 
000656 
000657 
000658 
000659 
000660 
000661 
000662 
000663 
000664 
000665 
000666 
000667 
000668 
000669 
000670 
000671 
000672 


000673 


000674 
000675 
000676 
000677 
000678 
000679 
000680 
000681 
000682 
000683 


SOFTWARE 


AF OO 
FFCO 
C780 


BBCO 
3c 00 


3D08 
0980 
8386 


E2FE 
D873 


E451 
8055 
0056 


E5706 
6018 


~—O9FS 


O7 FG 
D570 


5971 


9370 


3F27 
1616 
OO3F 
012D 
OOG1E 
O12E 


OOTA 


O03F 


Sf27 


1616 
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11870 
11880 
11890 
11900 
11910 
11920 
11930 
11940 
11950 
11960 
11970 
11980 
11990 
12000 
12010 
12020 
12030 
12040 
12050 
12060 
12070 
12080 
12090 
12100 
12110 
12120 
12130 
12140 
12150 
12160 
12170 
12180 
12190 
12200 
12210 
12220 
12230 
12240 
12250 
12260 
12270 


12280 
12290 
12300 
12310 
12320 


12330. 


12340 
12350 
12360 
12370 
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DTSS L~6 HOST. RESIDENT. FACILITY 


JEJSECT ** ROUTINE TO READ FROM DISKETTE ** © 


RIK KK KKK KR eK EK KEE EEK EE KKK KK KK RK 


* READ ROUTINE USING REGISTERS. FOR PARAMETERS 


* 
* 


THE COMMAND LIST AND DATA LIST. ARE: 
THE SAME LENGTH AND PRESET FOR A: READ CHAIN 


* LENGTHs TRKNUMs & SECNUM ARE SET BY CALLER 


KKK KK KKH IKKE KKK KK KEKE KEKKK KAKA KKK KKK KKK KKK 


READ 


* 


+ + + et He HF 


* 
1OLOOP 


RESV 


ON INPUT 


x 
> 
wuntwnhaown 


0 


CHANNEL NUMBER 


SED AS COMMAND LIST OFFSET 
TRACK NUMBER | 
DATA LOCATION PTR 
RETURN POINTER 

=> DATA LIST POINTER 

=> COMMAND LIST POINTER 


y Mae ae dd 
Z°1616° 


/ Z*OO3F * 


RANGE »<LENGTH 


BASEsDATLOC | 


TRACK « <TRKNUM 


$B3/DATLIS 
ER3eZERO 


0 
S$R3e/DATLEN 
>+SA 

TRNS 


0 
$RG6eSE32.+5R3 
$R5,4+3B3 

0 
$R6e=CHANEL 
=S$R5,/=S5R6 


SR6se=M ASK 
SROeISSTAT 
>IOLOOP 


>- $8 
$R5/=BADSTS 
$R5e>10LO00P 


$RIZ=HALT 


BAD STATUS BITS 
BAD STATUS FLAG 


“COMMAND MASK 


SET. RANGE REG 
STUFF MEMORY ADDRESS 
STUFF TRACK NUMBER 


SET DATA LIST PTR AFRESH 


NOTHING DONE YET 


DONE YET? 
NOPE 
YEP 


GET COMMAND 


GET DATA BUS INFO 


GET CHANNEL. ALSO 


ISOLATE. COMMAND 


“STATUS CHECK? 
NOPE» DON*T WORRY "BOUT IT 


AWAIT. COMPLETION 


STATUS OK? 


SORIGHT 


SET. FLAG 


4 


PAGE 0020 


SE A: Ae A Eg, ES Pg AS: SONG OT ES: SPB OE A RR PP PR ARI TR ON 
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000684 
000685 
000686 
000687 
000688 
000689 
000690 
000691 
000692 
000693 
000694 
000695 
000696 
000697. 
000698 
000699 
000700 
000701 
000702 
000703 
000704 
000705 
000706 
000707 
000708 
000709 
000710 
000711 
000712 


0134. 


0136 


0138 
0139 


O13A 


‘TARA TPCT OTTERS tT AO RAT Be RATT POCA POINT 


SOFTWARE 


8E 70 


090D 


PETS 


0718 
0718 


0000 
0900 
0000 
0500 


0100 


0000 
8100 
0000 


8C 00 
BE 70 


9000 
OF FF 


0000 


0000 


0134 
0008 


O13A 
0000 


~ SAF 


12380 
12390 
12400 
12410 
12420 
12430 
12440 
12450 
12460 
12470 
12480 
12490 
12500 
12510 
12520 
12530 
12540 
12550 
12560 
12570 
12580 
12590 
12600 
12610 
12620 
12630 
T 12640 
12650 
12660 


1981/12/24 


* 
CMOLIS 


aa 
DATLIS 
DATLOC 


LENGTH 


TRKNUM 
SECNUM 


DATEND 
DATLEN 
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LEV 


RESV 
DC 
DC 
DC 
DC 


RESV 
DC 
DC 
dC 
dC 
DC 
DC 
DC 
oC 
EQU 
EQU 


HRF ASSEMBLER 
=SLVDIE 


0 
OSADDR*U+OSRANG 
OSCWA*Ut03CWB 

OSTASK*UFISSTAT 
OSTASK*UFISSTAT 


0 
0 
0 
Oo 
LOWSEC/SECSIZ*U 
OSEEKS 
0 
ORWS 
0 
$ 
$=DATLIS 


DTSS L~6 HOST RESIDENT FACILITY 


PLAY TAPS 


SET START & LENGTH 
SET. SEEK & SECTOR 
SEEK & DESTROY 


READ TASK 


START. ADDRESS 
RANGE 

TRACK NUMBER 
STARTING SECTOR 
SEEK ORDER 

FOR STATUS , 
READ DATA ORDER. 


—. FOR STATUS 
MARK LIST END ~ 


RRR TI III OO IO TOOT IOI II BOR III IOI kk tok 
HANDLE TSA AREA OVERFLOW | 


* 
TSAOVR 


$8 


* 
SERROR 


RESV 
STS 
LEV 
RESV. 
HLT 

B 


DC 


0 

<SERROR 
=$LVDIE 
0 ; 


>-$8 


2*O0000* LEVEL SAVIOR 


SAVE CRASH LEVEL 
ADIOS : 
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000713 
000714 
000715 
000716 
000717 
000718 


0140 


0134 
0134 
07140 


SOFTWARE 


0140 


0000 


~SAF. 


1981/12/24 


12670 
12680 


12690 


12700 
12710 
12720 


/ 


MORE 
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DTSS L=6 HOST RESIDENT. FACILITY PAGE 0022 


REGRETTABLE TRICKYs KLUDGE FOR BOOTSTRAPPING 


ORG 
EQU 
ORG 
RESV. 
ORG 


$B800T+X*'0040' 
$ 
DATEND 


SPACE FOR SECTOR SCHISM 
START OF BOOTSTRAP CONTINUATION 
RESET PC FOR RESERVATION 


(MORE-DATEND)4Z*QO00* "SPACE FOR SECOND PART. OF BOOTSTRAP. 


$B00T+X*'0040° 


RESET PC FOR REAL 
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DBTL 


000719 
000720 
000721 
000722 
000723 
000724 
000725 
000726 
000727 
000728 
000729 
000730 
000731 
000732 
000733 
000734 
000735 
000736 
000737 
000738 
000739 
000740 
000741 
000742 
000743 
000744 
000745 
000746 
000747 
000748 
000749 
000750 
000751 
000752 
000753 
000754 
000755 
000756 
000757 
000758 
000759 
000760 
000761 
000762 
000763 
000764 
000765 
000766 
000767 
000768 
000769 
000770 


0140 
0150 
0151 
0154 
0157 
0158 
0160 


0164 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
O19A 
0198 
019¢ 
019D 
O19E 
O19F 


01A0 


01A1 
O01A2 
01A3 
O1A4 
O01A5 
01A6 
O1A7 
01A8 
O1A9 
O1AA 
01AB 
OTAC 
O1TAD 
O1AE 
O1AF 
0180 
0161 
018 

0183 
01B4 
0185 


SOFTWARE 


O2E1 


9000 


O2FE 
0300 
0302 
0304 
0306 
0308 
O30A 
030C 
O30€E 
0310 
0312 
0314 
0316 
0318 
O31A 
O31C 
O3i1E 
0320 
0322 
0324 
0326 
0328 
O32A 
O032C 
O32E 
0330 
0332 
0334 
0336 
0338 
O33A 
033C 
O33E 
0340 
0342 
0344 


0000 


0000 
0000 


0000 
0000 


0000 
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12730 
12740 
12750 
12760 
12770 
12780 
12790 
12800 
12810 
12820 
12830 
12840 
12850 
12860 
12870 
12880 
12890 


12900. 


12910 
12920 
12930 
12940 


12950. 
- 72960 


12970 
12989 
12990 
13000 
13010 
13020 
13030 
13040 
13050 
13060 
13070 
13080 
13090 


13100. 


13110 
13120 
13130 
13140 
13150 
13160 
13170 
13180 
13190 
13200 
13210 


13220. 
13230. 


13240 


/EJECT 


* 


* 
* 
* 


TSALS 


RTCLK 
WDTMR 


INTBT 
x 


* 


TV4E 
TV45 
TV44 
TV43 
TV42 
TV41_ 
TV4O 
TV39 
TV38 
TV37 
TV36 
TV35 
TV34 
TV33 
TV32 
TV31 
TV30 
TV29 
TV28 
TV27 
TV26 
TV25 
TV24 
TV23 
TV22 
TV21 
TV20 
TV19 
TV18 
TV1? 
TV16 
TV15 
TV14 
TV13 
Tv12 
TV11 
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* TRAP VECTORS 


RESV 
Dc 
nya 


HRF ASSEMBLER 


THE FOLLOWING REAL TRAP VECTORS, 
SECTORS 1~4 BUT READ INTO O-FF 


164Z°0000! 
<TSABKO 
3Z°0000° 
342°0000° 
Z'Q000° 
8-Z*'0000° 
4/2°0000' 


462" 0000! 
<HLTP46 
SHLTP4S5 


<HLTP 4G 
<HLTP 43 
<HLTP42 
<HLTP41 
<HLTP4O 


 <HLTP 39 


<HLTP38 
<HLTP37 
<HLTP36 
<HLTP35 
<HLTP34 
<HLTP33 
<HLTP 32 
SHLTP 31 
<HLTP 30 
<HLTP29 
<HLTP28 
<HLTP 27 
<HLTP26 
<HLTP25 
<HLTP24 
<HLTP23 
<HLTP22 
<HLTP 21 
<HLTP20 
<HLTP19 
<HLTP18 
<HLTP17 
<HLTP16 
<HLTP 15 
<HLTP14 
<HLTP13 
<HLTP12 
<HLTP11 
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ETC ARE PUT TO DISKETTE 


~OOX TO OFX 


FIRST TRAP BLOCK (10X) 


11X TO 13xX 


REAL TIME CLOCK LOCATIONS 
WATCH DOG TIMER 

18X THRU 1FX 

INTERRUPT SCHEDULE BITS 


UNUSED PORTION OF SAF TRAP VECTOR 
TRAP . 


TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 


TRAP. 


TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 


TRAP 


TRAP 
TRAP 


TRAP 


TRAP 


TRAP 


TRAP 


VECTOR 
VECTOR 
VECTOR 


VECTOR |. 
VECTOR 


VECTOR 
VECTOR 
VECTOR 


VECTOR. 


VECTOR 
VECTOR 
VECTOR 
VECTOR 
VECTOR 
VECTOR 
VECTOR 


VECTOR © 
VECTOR . 


VECTOR 
VECTOR 
VECTOR 
VECTOR 
VECTOR 
VECTOR 
VECTOR 
VECTOR 
VECTOR 
VECTOR 
VECTOR 
VECTOR 


VECTOR. ° 
VECTOR. 
VECTOR. 


VECTOR 
VECTOR 
VECTOR 
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e 000771 0186 
000772 0187 
e 000773 0188 
000774 0189 
000775 O1BA 
e 000776 0188 
000777 O1B¢ 
000778 018D 
e 000779. 018E 
000780 018F 
000781 
000782 
e 000783 
000784 
e 000785 
000786 01c0 
000787 01¢1. 
e 000788 01¢2 
000789 01¢3 
000790 O1¢c4 
e 000791 o1¢5 
000792 O1FF 
| 000793 
000794 0200 
@ 
€ 
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SOFTWARE 


0346 
0348 
O34A 
034¢€ 


O34E. 


0350 
0352 
0354 
0356 
035C 


O2cc 
0000 
0284 
0000 
O29C 


0284 


07c¢0 


0000 


0000 
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13250 


13260 
13270 


13280. 


13290 
13300 
13310 


13320. 


13330 
13340 
13350 
13360 
13370 
13380 
13390 
13400 
13410 
13420 
13430 
13440 
13450 
13460 
13470 
13480 


TV10 
TVO9 


TVO8 
Tv0?7 


TVO06 
TVOS 
Tv04 
TVO3 
TvO2 
TVO1 
* 

* 


* INTERRUPT VECTORS 


* 
IVECT 


10:12:47 


HRF ASSEMBLER 


<HLTP10 
<HLTP OD 
<HLTPO8 
<HLTPO? 
<HLTPO6 
<HLTPOS 
<HLTPOG 
<HLTPOQOS 
<HLTPO2 
<HLTPO1 


$ 
<ERRIV 
z*Q000° 


<TSOVIV 


z*oo00°* 
<INITIV 


58Z°'0000' 


<IDLEIV 


642°0O000' 
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TRAP VECTOR 10 
TRAP VECTOR 09 
TRAP. VECTOR 08 
TRAP VECTOR Q7 


TRAP VECTOR O06 
~ TRAP VECTOR O5 


TRAP VECTOR 04 
TRAP VECTOR 03 


TRAP VECTOR Q2 


TRAP VECTOR Q1 


80 (16) START OF INTERRUPT. VECTORS 
LOCATION OF POWER FAIL/CRASH VECTOR 


LOCATION OF WATCH DOG TIMER VECTOR 


LOCATION OF TRAP SAVE AREA OVERFLOW VECTOR 
HANG LEVEL. 

INITIALIZATION THEN REAL. TIME CLOCK 
INTERRUPT VECTORS US. THRU 62 ARE PROGRAMMED 
LOCATION OF IV63 WHICH IS IDLE VECTOR 


UNUSED PORTION OF SAF INTERRUPT. VECTOR 


FAT IT AE MEL oA MME ee Bc A ER RE TT PR ER TAGS Pe PO A: M,C SS: EN 2, Fe PR TR A SR OR PRC NSO: AR OR SM TS I A ON A I TM A, A 


eeeeeeee?e#eeeteeee88066dmM8mC“tem=C—Ci(‘ lkrlCc lw 


000795 
000796 
000797 
000798 
000799 
000800 
000801 
000802 
000803 
000804 
000805 
000806 
000807 
000808 
000809 
000810 


000811. 


000812 
000813 


000814. 


000815 
000816 
000817 
000818 
000819 
000820 
000821 
000822 
000823 
000824 
000825 
000826 
000827 
000828 
000829 
000830 
000831 
000832 
000833 


000834 


000835 
000836 
000837 
000838 
000839 
000840 
000841 
000842 
000843 
000844 
000845 
000846 


0240 


0242. 


0244 
0246 
0248 
O24A 
024C 
O24E 


0250 
0252 
0254 


0256 
0258 
O25A 
O25C 


O25E 
0260 
0262 
0263 


0265 
0267 


0269 
026B 


026C 
O26E 


0270 


SOFTWARE 


F870 


FFOO | 


A870 
FCCO 
9F40 


E380 0 


8E 70 
8380 


ABCO . 


8700 
A870 


F800 
C380 
CF 80 
F200 


FBC? 


F270 
7A00 


F870 
d8 70 
E380 


89C? 
O9FE 


8740 


8E70 


0000 


FE9S 
8004 
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13490 
13500 
13510 
13520 
13530 
13540 
13550 
13560 
13570 
13580 
13590 
13600 
13610 
13620 
13630 


13640. 


13650 


13660 | 


13670 
13680 
13690 
13700 
13710 
13720 
13730 
13740 
13750 
13760 
13770 
13780 
13790 


13800. 


13810 
13820 
13830 
13840 
13850 
13860 
13870 
13880 
13890 
13900 
13910 
13920 
13930 
13940 
13950 
13960 
~ 13970 
13980 


~13990— 


14000 


/ REAL CODE LOADED AT.LOCATION ‘MORE’ 


TORTI III III ITO RIO III SOI aOR tk tote 
* CONTINUATION OF. BOOTSTRAP 


* 1. READ: TRACK O, SECTORS 17-4 (TRAP VECTORS» ETC.) 
* 2e LOOP» READING TRACKS 1, ON TIL "ENDING" 
x 34 CLIMB TO LEVEL 4 FOR REGULAR INITIALIZATION 
IUIIUIGIIICIIDIIIIOIS OI IIIS ICICI IOI ISIS TOI IO IO IOI 

XLOC: INITCP,RSTART 
CONT -RESV QO: SECONDARY BOOTSTRAPPING 
MORE2 EQU ALSCCONTSONE) BYTE IT! 


LOR —$R7=0NE*Y START. NOW WITH SECTOR =ONE*U 
STR SR74<SECNUM _ 
LDR RANGE » FLOWSEC=SECSIZ "4 SECTORS 
LDB BASEsZILCH READ IV*S & TRAP VECTORS | 
STR CHANEL »L635R1 SAVE CHANNEL NUMBER FOR LOW LIFE 
LNJ TRNS» <READ 
LEV -=$LVEXI CONTINUE ON A LOWER LEVEL 
JMP <RSTART REBOOT SHTICK 
* 
RESTOF RESV. 0 ENTRY FROM LEVEL 63 VECTOR 
* 
LAB $B2-CMDLIS RESET COMMAND LIST PTR 
CL <SECNUM SET NORMAL READ START AT SECTOR 0 
LDR RANGE »=TRKSIZ READ FULL TRACK 
* a 
LDR SR7e<SENDO FIND #WORDS TOTAL 
LAB $84,/<$B00T | 
STB $B4e<ENDO 
SUB S$R7< ENDO 
* . 
ADJUST EQU z*0200' ACCOUNT FOR 256 WORD HOLE 
LAB BASE,BASE.ADJUST WITH TRACK O READING 
F : 
BTLOOP RESV 0 
SUB SR7e=TRKSIZ/2 COUNT DOWN WORDS TRANSMITTED 
BGZ SR7,>+3C MORE TO BE DONE 
* 
LDR $R7e/=COUPID FAKE OUT INITCP WITH RS &R7 
LDR $R5-=BTLDCH INIT BOOTLOAD COUPLER 
LNJ - TRNS/<INITCP GO TO. IT 
* WEIRDO DELAY LOOP TO PREVENT COUPLER I/0 COLLISION 
* DONE BECAUSE HOST BOOT TIME LAG PREVENTS $BOOT CLEAR SINCE 
* SOFTWARE IS NOT. ALL PRESENT AT INITCP*S FIRST CALL 
SA RESV 0 
CMZ $B7.COUPST IS COUPLER DONE JERKING OFF? 
BNE ><SA NOPEsCHECK AGAIN 
* : 
CL $BOOT MAKE LIKE HOST. TCL & TELL INIT AL HERE. 
LEV =$LVEXE+RTCLEV GET ON WITH IT 
i 
IDLE  ~—RESV 0 


HLT 
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®ecsteeeeeee#eteeeeeeesteeeeeee ee @ 


RA ESR ET NR TER OT TORE TN TR A, CARR: AS EPIRUS SPR TERRA RR ST HPD SRE RPS. TR P<. FPR ERR RS AT A EPR TR NTR OR TE, Se: PSO RR A PR RR A A A: <A AR PP A ASS A RR SRR AR OREM SORT AO 2 ETP  € GEE TT MF ATT: A A TT 


eo eS ss ae 


eeeeeeeeeeeeetkeeeeeeefeeeeee @ 
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000847 
000848 
000849 
000850 
000851 
000852 
000853 
000854 
000855 
000856 


¢ 


EAP Se SNR AN SN 2: RTPA: A A TOT, A 2TH RL PT 


0271 


0272 
0273 
0274 
0276 


0277. 


0278 


SOFTWARE “SAF 1981/12/24 
OF FF 14010 
14020 * 
14030 $¢ 
4E01 14040 
FRA? 14050 
E380 0108 7 14060 
OFEA 14070 
| 14080 * 
0000 x 14090 ENDO 
0000 14100 ZILCH 


10:12:47 


HRF ASSEMBLER 
>IDLE 


0 
TRACK » =ONE 


—BASEs BASE. RANGE 


_TRNS»<READ 
->BTLOOP 


SENDING 
1.0 


DOTSS L-6 HOST RESIDENT FACILITY 


LOOP FOR IDLENESS 


NEXT. TRACK 


“ADVANCE TO NEXT 
-READ NEXT. TRACK © 


LET LINKER TELL US FINAL ADDRESS 
— ZERO BASING. CELL 


PAGE 0026 


@®eeeeeee%eoeeeeee0ee080808 8 @ @ @ @ 


OMe WA Tas ny TO TMI MS <M: <TR PRT: PP NP 2S See PR a = SS SP, AE a A, —S SS -  -P  - A<A-PP F RA  « 2 ce A I A OS cl oT NS PN PD OO TAS ETE EN: ay. RT, ER, I SO sR ss Pe: ee ee eS re 
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000857 14110 /EJECT 

000858 14120 XDEF - DATEsTIME 
0279 | | 
0270 a 

000859 0279 0000 14130, DATE RESV 4/2°0000' 

000860 27D 0000 14140 TIME RESV 42°0000' 


@eeeeee6mUhehmlUCc OCmhUCcOCcFOlhUC(Cwh CUCU OlhUCUchCCUlchOUlUchOhlUchOhlUchOmhlUchHMhlCUh HhU HhlhCU!F 


=F TR STR Tr TY <P TTI TTPO APES REE: PES I tt Rr ER AR A eR RC I RS A AAR RS oS A Ne RE Ty TIE SS, A A A er AC OP ON A RO I AAD TT ATI EE AERO INES A AS er NC A AT a PRN AE Pe BP MMR SR TE FRESE TO RE PR Tn SAA EA OS A: SNA TTR, et ES eR ol 


e®e0eoeeeeeeeee#eeeeseseeeeesteeeeeeese ese 


—DBTL 


000861 
000862 
000863 
000864 
000865 
000866 
000867 
000868 
000869 
000870 
000871 
000872 
000873 
000874 


000875 
000876 
000877 
000878 
000879 
000880 
000881 
000882 
000883 
000884 
000885 
000886 
0008387 
000888 
000889 
000890 
000891 
000892 
000893 
000894 
000895 
000896 


000897. 


000898 
000899 
000900 


000901. 


000902 
000903 
000904 
000905 


000906. 


000907 


| 
} 
| 


0281 
0284 


0285: 


0286 
0287 
0288 
0289 
0297 


0299 
029C 
029D 
O29E 
O29F 
02A0 
O2A1 


0281 
0284 
O02B5 
02B6 
0287 
0288 
0289 


O2C9 


~O2CC 


O2CD 
O2CE 


O2CF. 


0200 
0201 


SOFTWARE | 


0000 
FR FE 
0000 
0250 
6000 


0000 


0000 
FF FF 
0000 
0000 
6000 


o00c 
FFFF 
000¢ 


0134 


6000 


000C 
FF FF 
0000 
0000 


6000 


FREF 
0284 


0000 


0000 
0000 


O29C 
0000 


0000 


0284 
0000 


0000 


O2cc 
0000 


0000 
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14150 /EJECT 

14160 * 

14170 * BOOTLOAD IDLE LEVEL 

14180 * 

14190 $ALL EQU Z°FFFF® 
14200 IDLEIV EQU $+3 
14210 RESV 3,2'0000' 
14220 DC. z*o000° 
14230 DC $SALL. 
14240 OC z'0000'° 
14250 DC SRESTOF 
14260 DC $SRGP3 
14270 RESV 142'0000' 
14230 L63$R1 RESV 2/2'0000' 
14290 * 

14300 * START OF EXEC INITIALIZATION 
14310 * yo 4 
14320 INITIV EQU $43. 
14330 RESV 342'0000' 
14340 pc z'oo000° 
14350 DOC SALL 

14360 DC z*'oo000° 
14370 DC <INIT 
14380 pc SSRGP3 
14390 RESV 16Z2' 0000" 
14400 * | | 

14410 * TRAP OVERFLOW INTERRUPT 
14420 * , 
14430.TSOVIV EQU $+3 
14440 RESV 3/2*°0000° 
14450 DC z*'oooo'’ 
14460 DC SALL 

14470 DC z*0000° 
14480 DC <TSAOVR 
14490 DC $SRGP3 
14500. RESV 16/2'0000' 
14510 * 

14520 * POWER FAIL OR CRASH INTERRUPT 
14530 * | 

14540 ERRIV EQU $+3 

14550 RESV 3,2'0000" 
14560 DC z'0000° 
14570 DC SALL 

14580 DC 2*0000! 
14590. DC z*0000' 
14600 DC SSRGP3 
14610 RESV 


~1642'OO000* — 


LEVEL 


DTSS L-6 HOST RESIDENT. FACILITY PAGE 0028 


—. TSM1 CONTEXT. ENTIRELY. 


LEVEL ROUTINE WHEN WE ARE. IDLE. 


 MMAsRFUs TSAP 


DEV 
SAVE INDICATORS AND MODE 1 


BOOTSTRAP CONTINUATION 
PRIORITY. LEVEL 

ROOM FOR REGISTERS 

R1 = CHANNEL NUMBER 


~- LEVEL ROUTINE WHEN WE START EXEC UP 
“MMAsRFUsTSAP . 


DEV 


SAVE. MODE REGISTER 1 
~ DISKETTE COPY ROUTINE 


PRIORITY LEVEL 
ROOM FOR REGISTERS 


LEVEL ROUTINE WHEN WE ARE OVER TRAPPED 


MMAsRFUsTSAP 


DEV 


SAVE MODE REGISTER 1 


TSA OVERFLOW HANDLER 
PRIORITY LEVEL . 


ROOM FOR REGISTERS 


LEVEL ROUTINE WHEN WE ARE aoie 


MMA eRF Us TSAP 
DEV 


SAVE MODE REGISTER 1 


PREG PLUGGED WHEN WE LEFT. LEVELO 
PRIORITY LEVEL 


~ ROOM FOR REGISTERS 


@®eeeeeeeeeéeee%e§ee%e%0ee080e080 8 @ 
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e 000908 14620 /EJECT e 
000909 14630 * 

ry 000910 14640 * TRAP HANDLING MECHANISMS e 
000911 14650 * 

. 000912 14660 * . 

@ 000913 14670 * TRAP SAVE AREAS e 
000914 14680 x 
000915 O2E1 O2EA 14690 TSABKO Dc <TSABK1 LINK TO SECOND 

e ee O2E2 0000 14700 . RESV S$TSALN-142'0000' ROOM FOR REMAINDER OF TSA e 
000917. 14710 * 
000918 O2EA O02F3 14720 TSABK1 oc <TSABK2 LINK TO THIRD al 

@ 000919 O2EB 0000 14730 RESV $TSALN-14Z'OO00' ROOM FOR REMAINDER OF TSA e 
000920 14740 * | — | 
000921 O2F3 0000 14750 TSABK2 DC z'oooo* ONLY HAVE 3 ACTIVE TSA*S 

e 000922 O2F4 0000 14760 RESV $TSALN-1,42'0000° ROOM FOR REMAINDER OF TSA & 
000923 14770 * - ; 
000924 14780 *. TRAP HANDLERS. 

e 000925 14790 * 7 | e 
000926 O2FC OF80 035D 14800 HLTRPX B <HLTRAP ALLOWS SHORT ADDRESS 
000927 : 14810 * 

a 000928 O2FE 3C2E 14820 HLTP46 LDV S$R3Z2°2E' “LOAD TRAP NUMBER e 
000929 O2FF OFFD 14830 | B D>HLTRPX CRASH | 
000930 0300 3cC2pD 14840 HLTP45 LDV $R3,2'2d" LOAD TRAP NUMBER 

@ 000931 0301. OFFB 14850 B >HLTRPX CRASH | @ 
000932 0302. 3c2c 14860 HLTP44 LDV $R3eZ2'*2C'" LOAD TRAP NUMBER 
000933 0303 OFFS 14870 B D>HLTRPX ~ CRASH | | 

e 000934 0304 3c2B 14880 HLTP43 LDV $R322'2B' LOAD TRAP NUMBER e 
000935 0305 OFF? 14890 B >HLTRPX CRASH 
000936 0306 3C2A 14900 HLTP42 LDV $R3eZ2°2A' LOAD TRAP NUMBER 

e 000937 0307 OFFS 14910 B >DHLTRPX CRASH e 
000938 0308 3¢€29 14920 HLTP41 LDV $R342°29" LOAD TRAP NUMBER 
000939 0309 OFF3 14930 B D>HLTRPX CRASH . 

® 000940 O30A 3C€28 14940 HLTP4O LDV $R3-Z2'28'! LOAD TRAP NUMBER e 
000941 0308 OFF1 14950 B >HLTRPX CRASH 
000942 O30C 3C27 14960 HLTP39 LDV $R322'27'! LOAD TRAP NUMBER 

e 000943 O030D OFEF 14970 B >HLTRPX CRASH e 
000944 O30E 3C€26 14980 HLTP38 LDV $R3,2'26' LOAD TRAP NUMBER 
000945 O30F OFED 14990 B >HLTRPX CRASH | 

e 000946 0310 3c€25 15000 HLTP37 LDV $R32'25' LOAD TRAP NUMBER ) 
000947 0311. £xOFEB 15010 B >HLTRPX CRASH 
000948 0312 3¢€24 15020 HLTP36 LDV $R3-72'24! LOAD TRAP NUMBER | 

e 000949 0313 OFES 15030 B >HLTRPX CRASH e 
000950 0314 3¢23 15040 HLTP35 LDV $R322'23' LOAD TRAP NUMBER 
000951 0315 OFE?7 15050 B ->HLTRPX . CRASH 

oe 000952 0316 3c¢22 15060 HLTP34 LOV $R3-Z2'22' LOAD TRAP NUMBER ® 
000953 0317 OFES 15070 B >HLTRPX CRASH | 
000954 0318 3¢21 15080 HLTP33 LDV $R3ez2°21' LOAD. TRAP NUMBER 

) 000955 0319 OFE3 15090 B _PHLTRPX CRASH. & 
000956 O31A 3€20 15100 HLTP32 LOV $R3-Z2'20' LOAD TRAP NUMBER 
000957 0318 OFET 15110 B >HLTRPX CRASH 

@ 000958 031C 3cTF 15120 HLTP31 LDV S$R32°1F* LOAD TRAP NUMBER e 
000959 031D OFDF 15130 B >HLTRPX CRASH 

@ if 
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DBTL 


000960 
000961 
000962 
000963 
000964 
000965 
000966 
000967 
000968 
000969 
000970 
000971 
000972 
000973 
000974 
000975 
000976 


000977 
000978 


000979 
000980 
000981 
000982 
000983 
000984 
000985 
000986 


000987. 


000988 
000989 
000990 
000991 
000992 
000993 
000994 
000995 
000996 
000997 
000998 
000999 
001000 
001001 
001002 
001003 


001004 


001005 
001006 
001007 
001008 
001009 
001010 
001011 


O31E 
O31F 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
O32A 
0328 
O32C 
O32D 
O32E 
O32F 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
033A 
0338 
033C 
0330 


O33E. 


O33F 
0340 
0341 
0342 
0343 
0344 
0345 
0346 


0347. 


0348 
0349 
O34A 
0348 
034C 
034d 
O34E 
O34F 
0350 
0351 


SOFTWARE ~SAF 


3C1E 
OF DD 
3C1D 
OF DB 
3C1C 
OF D9 
3C18 
OFD? 
3C 1A 
OF D5 
3019 
OF D3 
3018 
OF B2 
SC17 
OF BO 
3C 16 
OF AE 
3¢15 
OFAC 
3014 


OF AA 


3¢13 
OFA8 
3C 12 
OF A6 
3C 11 
OF AG 
3€10 
OF A2 
3C OF 
OF AQ 
3COE 
OF QE 
3c O00 
OF IC 
3co0c 
OF OA 
3C 0B 
OF 98 
3C OA 
OF 96 
3C 09 
OF 94 
3¢ 08 
OF 92. 
3c 07 
OF90 
3C06 
OF 8E 
3¢05 
OF 8C 


1981/12/26 


15140 
15150 
15160 
15170 
15180 
15190 
15200 
15210 
15220 
15230 


15240 


15250 
15260 
15270 
15280 
15290 
15300 
15310 


15320 


15330 


15340. 


15350 
15360 
15370 
15380 
15390 


15400 


15410 
15420 
15430 


15440 


15450 
15460 
15470 


15480 


15490 
15590 
15510 
15520 
15530 
15540 
15550 
15560 
15570 
15580 


15590 


15600 
15610 
15620 
15630 
15640 
15650 


HLTP30 
HLTP29 
HLTP28 
HLTP27 
HLTP26 
HLTP25 
HLTP24 
HLTP23 
HLTP22 
HLTP21 
HLTP20 
HLTP19 
HLTP18 
HLTP17 
HLTP16 
HLTP15 
HLTP14 
HLTP13 
HLTP12 
HLTP11 
HLTP10 


HLTPOY 


HLTPO8 


HLTPO? 


HLTPO6 


HLTPOS 


10:12:47. 


LDV 
B 
LDV 
B 


LDV 


B 
LDV 
B 
LDV 
B 
LDV 
B 
LDV 
B 
LDV 
B 
LDV 
B 
LDV 
B 
LDV 
B 
LDV 
B 
LDV 
B 
LDV 
B 


LDV. 


B 
LDV 
B 
LDV 
B 
LOV 
8B. 
LOV 
B 
LOV 
B. 
LDV 
B 
LDV 
B 
LDV 
B 
LDV 
B 
LOV 
B 
LDV 
B 


HRF ASSEMBLER 


$R3eZ°1E* 
>HLTRPX 
$R32'1D°* 
PHLTRPX 
$R3e7°1C* 
>HLTRPX 
$R372°1B* 
>HLTRPX 
$R3,2:°1A" 
>HLTRPX 
$R3,2°19° 
P>HLTRP X 
$R3272'18! 


->HLTRAP 


$R32°17' 
2>HLTRAP 
$R3-2'16! 
>HLTRAP 
$R3Z2°15'° 
PHLTRAP 
$R3/Z2°14! 


->HLTRAP 


$R3-2°13' 
>HLTRAP 
$R3eZ2'12" 
>HLTRAP 
$R3,Z2°11' 


PHLTRAP 


$R3,2'10' 
D>HLTRAP 
$R3,2'°OF* 
>HLTRAP 
$R3-2'OE! 
>HLTRAP 
$R3e2'°OD' 
>HLTRAP 
$R3,Z'OC'* 
>HLTRAP 


 $R3,2'0B' 


>HLTRAP 
$R3,Z2'OA' 


->HLTRAP 
$R32'09* 


$R3,2'08' 


->HLTRAP 


$R3-2'07" 


-PHLTRAP 


$R3e2'06! 


~>HLTRAP 


$R3,2°O5' 
PHLTRAP 
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LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 


~ LOAD. TRAP 


CRASH 
LOAD TRAP 
CRASH 
LOAD. TRAP 
CRASH 
LOAD TRAP 


CRASH 
LOAD. TRAP 


CRASH | 
LOAD TRAP 


CRASH 


LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 


LOAD. TRAP 


CRASH. 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH — 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH. 
LOAD. TRAP 
CRASH | 
LOAD. TRAP 


CRASH 
“LOAD TRAP 


CRASH 
LOAD TRAP 
CRASH. 
LOAD. TRAP 
CRASH 


~ LOAD. TRAP 


CRASH 


LOAD. TRAP 


CRASH. 
LOAD TRAP 
CRASH. 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 
NUMBER. 


NUMBER 


NUMBER 


NUMBER 


gt OP ATR TRAE TPT PTI PT OTE PPE SRR A RE ONE ORES: RLS: ERP», SCL I PR UPA RRO GPR EA I TITS LARP IPR CN AIS, A: FPS A TS OM, NG 


¢ 
i 


eeeeeee¢eeeeeeeeeeeeeeeteese# ¢ @ 9 
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001012 
001013 
001014 
001015 
001016 
001017 
001018 
001019 
001020 
001021 


001022. 


001023 
001024 
001025 
001026 
001027 
001028 
001029 
001030 


0352 
0353 
0354 


355 


0356 
0357 
0359 
0358 
O35C 


035D 
O35F 


0360 
0362 


0364 
0365 


SOFTWARE 


3C04 
OF 8A 
3€03 
OF 88 
3¢ 02 
9070 
9070 
OF 82 
3c 01 


8388 
0360 


8C 00 
8E 70 


0000 
OF FF 


0080 
8000 


O35F 


DISA 
0000 
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15660 


15670 


156380 
15690 
15700 
157190 
15720 
15730 
15740 
15750 
15760 
15770 
15780 
15790 
15800 


~15810 


15820 
15830 
15840 


HLTPO4 
HLTPO3 


HLTPO2 


HLTPO1 
* 


HLTRAP 
* 


TRAPER 


* 


TRPOIE 


$B 
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LDV 
B 
LDV 
B 
LDV 
MT™M 
MTM 
B 
LDV 


JMP 


HRF ASSEMBLER 


$R3-Z°'04' 
DPHLTRAP | 
$R3,z7'°O3' 


_>HLTRAP 
$R322'°02° 


SM1/=SM1JTS 
SMIS=SM1IIRS 
>HLTR AP 
$R3e2'°O1' 


*<TRAPER | 


- STRPDIE 


<SERROR 


" S$LVDIE 


0 


> $B 


DTSS L-6 HOST RESIDENT. FACILITY 


LOAD TRAP NUMBER 
CRASH 
LOAD TRAP NUMBER 
CRASH 
LOAD TRAP NUMBER 


TEST JUMP BIT FIRST. 


THEN RESET IT 


CRASH 


LOAD TRAP NUMBER 
CALL TRAP SUBROUTINE 
DIE IF WE WERENT EXPECTING FAULT 


SAVE LEVEL WHERE CRASH OCCURRED 
CRASH . ; 


BETTER SAFE THAN SORRY 
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001031 
001032 
001033 
001034 
001035 
001036 
001037 
001038 
001039 
001040 
001041 
001042 
001043 
001044 
001045 
001046 
001047 
001048 
001049 
001050 
001051 
001052 
001053 
001054 
001055 
001056 
00105? 


001058. 


001059 
001060 
001061 
001062 
001063 
001064 
001065 
001066 
001067 
001068 
001069 
001070 


0366 
0367 
0368 
0369 
O36A 
0368 
036C 
036D 
O36E 


O36F. 
0370. 


0371 
0372 
0373 


0374. 


0375 
0376 
0377 
0378 
0379 
O37A 
0378 
037C 
037D 
O37E 


O37F. 


0380 
0381 
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0387 
0000 


0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 


0000 
0000 
0000 
0000 
0000 


0000 


0000 
0000 


0000 
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15850 /EJECT 
15860 * 
15870 *MODULE POINTERS 
15880 * |. 
15890 xXLOC 

15900 xXxLOoc 
15910 xXLOcC 

15920 xXLOCc 

15930 xXLOC. 
15940 xXLoc 
15950 xXLOC 

15960 * 
15970 MODULE DC <ESDBTL 
15980 DC <ESCPLR 
15990 DC <ESCONS 
16000 DC K<ESSYSC 
16010 DC <ES$DBG1 
16020 dC <ESDBG2 
16030 ODC <ESCLOK 
16040 DC <ESMMRY 
16050 DC <ESINIT 
16060 DC <ESSFCP 
16070 DC <ESMLCP 
16080 DC <ESTASY 
16090 DC <ESRASY 
16100 DC <ESASML 
16110 DC <ESDEVC 
16120 DC <ESDVIN 
16130 DC <ESMSGD 
16140 DC <ESATTC 
16150 DC <ESDASY 
16160 DC <ESMBIN 
16170 DC <ESSYNC 
16180 DC <ESSYNP 
16190 DC <ESTYMN 
16200 .DC <ESNETX 
16210 DC <ESRJEN 
16220 DC <ESMTRS | 
16230 DC <ESNOPT 
16240 RESV 32°0000'° 
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ESCPLR-ESINIT /E$D8G61,ES0862 
ESCLOKsESMMRY -ESCONSZESSYSC 
ESSFCPsESMLCPFJESTASYsESRASY 
ESASML-ESDEVC-ESATTCe/ESMSGD 
ESMBINs ESDASY -ESSYNCZESSYNP 
ESDVINSESTYMNESRIENZESMTRS 
ESNETX/ESNDPT 


| OURSELVES 


COUPLER 


MULTIPOINT CONSOLE 
SYSTEMS CONSOLE INTERFACE 


DEBUGGER PART 1 


DEBUGGER PART. 2 


CLOCK MANIPULATORS 
MEMORY MANAGEMENT 


INITIALIZATION | 
SOFT SIDE.OF: COUPLER 
 MLCP I0 ROUTINES 


ASYNCHRONOUS. PROTOCOL OUTPUT (MLCP) 


ASYNCHRONOUS PROTOCOL INPUT. (MLCP) 
~ASYNCHRONOUS PROTOCOL DRIVER (L6). 


DEVICE. INTERFACE 
DEVICE INPUT | 
MESSAGES ROUTINES 


“MAINFRAME ATTACHMENTS 


DELAYS FOR ASYNCS 


MOTHER BOARD INIT ROUTINES 


SYNCHRONOUS PROTOCOL DRIVER (CMLCP) 
SYNCHRONOUS. PROTOCOL DRIVER (L6) 


-TYMNET NETWORK CONTROL 


PACKET NETWORK CONTROL 
REMOTE JOB ENTRY TERMINAL SUPPORT 


METERS »-CONFIGURATIONS 


NODE POINT ROUTING 
END OF TABLE AND 2. SPARES 
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DBTL SOFTWARE 
© 001071 
001072 
001073 
e 001074 
001075 0387 
e 001076 0384 0000 
001077 
e 001078 0385 4442 
0386 544¢ 
001079 0387 0000 
e 001080 0388 
0001 ERR COUNT 
02340 WORD SYMBOL TABLE 
e 
@ 
e 
e 
e 
e 
e 
e 
e 
e 
e 
e 
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99990 
99991 
99992 
99993 
99994 
99995 


99996 
99997 


99998 
99999 


/EJECT 

- : 
*FORCE ALL MODULES TO BE OMOD8 IN LENGTH 
‘ , 


ESENDR EQU $~ -S$DBTL+3 


RESV (CESENDR+7)/8)*8~ ESENDR»Z*0000" 

* 

DC *DBTL* MNEUMONIC NAME OF MODULE 
ESDBTL DC <SSDBTL START OF ROUTINE 


END DBTL SOFTWARE 


DTSS L-6 HOST RESIDENT. 
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Z2222222222222222222 


S2ee2222222222222 2222 


z22 


22233 


SASCBA 


SASCC 

SASCCM 
SASCCN 
SASCCR 
SASCD 

SASCDL 
SASCDS 


SASCODT. 


SASCE 
SASCEC 
SASCEM 
SASCER 
SBASCF 
SASCFF 


~SASCFS 


SASCG 
SASCGS 
SASCGT 
SASCH 
SASCHT 
SASCI 
SASCJ 
SASCK 
SASCL 
SASCLE 
SASCLP 
SASCLT 
SASCM 


SASCBS. 


SOFTWARE 
3 602 

665 840 

869 881 

62 

135 

62 


701 


892 
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702 715 785 866 878 889 900 1075 


903 
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DBTL 


2 22zz2222 


22222222222 


zZz2 


2 33 


SASCN 
SASCO 
SASCP 
SASCPL 


$ASCQ 


BASCQM 
SBASCR 
SASCRO 
BASCRP 
BASCRS 
$ASCS 
SASCSC 
BASCSP 
SASCT 
BASCU 
SASCUA 
BASCV 
SASCVT 


$B00T 
$C 
SCFGAI 
$CFGAO 
S$CFGBI 
$CFGBO 
SCRLF 
SICTLI 
SICTLO 
BIDINP 
SINMBA 
BINMMA 
BINRNG 
SINTBT 


$IOcHO 


SIOCH1 
SIOCH? 
SIOCH3 
SIOLD 

SIOLDI 
SIOLDO 
$ISTS1 


SOFTWARE 
131 

136 

137 

679 710 
627 669 
660 670 
821 822 
489 

490 839. 
463 714 
830 

462 

33 

34 

409 

35 34 


1030 
816 


718 
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222 


Z2e 


22 


<= 2222 


2z 


22222222 
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$ISTS2 
$IVB1 
SIVDEV 
SIVECT 
$IVI 
SIVLEV 
$1VM1 
SIVMSK 
SIVP 
SIVR1 
SIVREG 
$IVS 
SIVT 
SIVTSA 
SLVDIE 
SLVDIS 


SLVDSX 


SLVENT 
SLVEXE 
SLVEXI 
$LVSCH 
$™M1 
EMIJSRS 
SMIIST 
SM1UTS 
$MKB1 


»$MKB13 


S$MKB2 
SMKBS 
SMKB4 


SMKB47. 


$MKB5 
$MKB6 
$MKB7 
$MKI 
$MKM 1 
SMKR1 
SMKR13 
SMKR2 
SMKR3 
SMKRG 
SMKR47 
SMKRS5 
SMKRG 
SMKR? 
SMKSTD 
SOBCTL 
SOCCTL 
SOTCTL 
$R1 


SOFTWARE 


530 


684 


267 
843 
311 
1017 


1017 
219 


221 


220 


221 


ene 


221 
218 


486 
485 
661 


707 


1018 
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OIA STO GPT NT TOT, TT 
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e 960 962 964 966 968 970 972 974 976 978 980 982 984 986 988 990 992 994 996 e 
998 1000 1002 1004 1006 1008 1010 1012 1014 1016 1020 : : | 
e ERS kh kk 487 ; e 
SRS ek tok 670 673 £680 681 833 
SRO kk tee 669 672 673 £675 £676 
© $R7 tk ke 805 806 820 823 829 £830 832 e 
N $RORO 131 
$RTCLK 544 461 
N $$10 149 
6 -N $8120 153  ] 
N $S15 150 | 
N $8180 154 ) 
e N $$1920 158 e 
N $8240 155 
N $S30 151 
od N $8480 156 e 
N $S$60 152 | 
N $S8960 157. 
sd N $SMAX 160. e 
$SRGP3 256 872 £884 895 906 
STSAA 247 249 251 
e N $TSAB3 250 e 
N STSACM 245 
N S$TSAI 243 
¢ N STSAL 242 od 
$TSALN 253 916 919 922 
$TSALS 542 460 
e $TSAP 2468 249 e 
N $STSAPX 249 
N $TSAR3 244 
e N $TSATM 251. e 
N $TSAWD 252 
N $TSAZ 246 
e N $TSKRI 17 e 
N $TSKRO 18 : 
$TVO1 597 464 
6 N $TVO2 596 ad 
N $TVO3 595 
N $TVO4 594 
e N $TVOS 593 8 
$TVOG 592 665 
N $TVO? 594 
© N $TVOB8 590 od 
N $TVO9 589 
N $TV10 588 
e $TV11 587 466  d 
N $TV12 586 
N $TV13 585 
@ Nn stvt4 584 e 
N $TV15 583. 
$TV16 582 467 
@ oy stvi?7 581. | | | e 
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N $TV18 580 
N $TV19 579 
N $TV20 578 
$TV21 577 468 
N $TV22. 576 
N $TV23 575 
N $TV24 574 
N $TV25 573 
$TV26 572. 469 
N $TV27 571 
N $TV28 570 
N $TV29 569 
N $TV30 568 
$TV31 567 470 
$TV32 566 
$TV33 565 
$TV34 564 
$TV35 563 
$TV36 562 471 
$TV37 561 
$TV38 560 
$TV39 559 
$TV40 558 
$TV41 557. 472 
N $TV42 556 
N $TV43 555 
N $TV44 554 
N $TV45 553 
$TV46 552 473 
SWDTMR 545 461 
ADJUST 825 826 
ASCMOD 429 
ASYID 341 
BADSTS 652. 680 
BASE 490 630 657 808 826 851 
N BCDMOD 430 
N BINMOD 431 
N BISID 342 
N BKRDTA 329 
BTLDCH 39-8833 
BTLOOP 828 853 
N BUFBSY 387 
N CFGRD 445 | 
CHANEL 486 672 809 
CIDLE 441 
CIVDEV 375-376 
CMDLIS 686 627 816 
CNSLEV 289 290 
CONT 803. 632 804 
COUPID 339. 832 
COUPSL 414. 415 
COUP ST 350 352 «839 
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COUPTL 415 416 
N COUPWL 416 
ON CPBFLN 401. 

CPFLGS 349 350 
N CPLRBL 381 

CPLRLV 286 414 
N CPUOCH. 38 
CURBUF 301 302 
CURLEN 302 303 
DATE 859 858 
DATEND 701. 716 717 
DATLEN 702 664 
DATLIS 492 660 702 
DATLOC 693 657 
DBGLEV 292 
DCWLEN 425. 
DCWLST 379 381 
DEADCT 354 356 
DEVLEV 293. 
DISKID 340 
DW66T6 422 
DW6T66 421 
DWCNFG 423 
DWOSCI 420 
ESASML 1038 1056 
ESATTC 1038 1060 
ESCLOK 1036 1049 
ESCONS 1036 1045 
ESCPLR 1035 1044 
ESDASY 1039 1061 
E$DBG1 1035 1047 
ESDBG2 1035 1048 
ESDBTL. 1079 2 1043. 
ESDEVC 1038 1057. 
ESDVIN 1040 1058 
ESENDR 1075 1076 
ESINIT 1035 1051 
ESMBIN 1039 1062 
ESMLCP 1037 1053 
ESMMRY 1036 1050 
ESMSGD 1038 1059 
ESMTRS 1040 1068 
ESNDPT 1041 1069 
ESNETX 1041 1066 
ESRASY 1037 1055 
ESRJEN 1040 1067. 
-ESSFCP 1037 1052 
ESSYNC 1039 1063 
ESSYNP 1039 1064 
ESSYSC 1036 1046 
ESTASY 1037 1054 
ESTYMN 1040 1065 


© , fan , . Es — . | | e 
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ENDING 529 855 
ENDO 855 820 822 823 
ERRIV 900 603 786 

N ERRLEV 278 

N ESCDTA 328 

N ESCQTL 327 

N FPTR 45 
FRSTCK 316 317 
HO6O6DTA 370 371 

N H66SPC 407 

N H66TRM 406 
HALT. 653 683 

N HANGLYV 281 

N HEADRS 479 


HLTPO1 1020 597 780 
HLTPO2 1076 596 779 
HLTPO3 1014 595 778 
HLTPO4S 1012. 594 777 
HLTPOS 1010 2993 «836776 
HLTPO6. 1008 592 775 
HLTPO? 1006 591 774 
HLTPO8 1004 590 773 
HLTPO9 1002. 589 772 
HLTP10 1000 588 771 
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HLTP11 998 587 770 
HLTP12 996 586 769 
HLTP13 994 585 768 
| HLTP14 992 584 767 
| HLTP15 990 583 766 
HLTP16 988 582 765 
HLTP17 986 581 764 
| HLTP18 984 580 763 
: HLTP19 982 579 762 
: HLTP20 980 578 761 
: HLTP21 978 oe a 3 760 
HLTP22 976 576 759 
HLTP23 974 575 758 
HLTP24 972 574 757 
HLTP25 970 573 756 
HLTP26 968 372 755 
HLTP2? 966 571 754 
HLTP28 964 570 £753 
HLTP29 962 569 752 
HLTP30 960 568 751 
HLTP31 958 567 750 
HLTP32 956 566 749 
HLTP33 954 565 748 
HLTP34 952 264 747 
HLTP35 950 563 746 
HLTP36 948 562 745 
HLTP37. 946 561 744. 
HLTP38 944 560 743 
e ¢ 


| 
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@ HLTP39 942 559 742 ad 
HLTP4O 940 558 741 
e HLTP41 938° 557. 740 @ 
HLTP42 936 556 739 
HLTP43 934 555 738 
HLTP44 932 554 737 
e HLTP4S 930 553 736 ad 
HLTP46 928 552 735 7 oe | 
® HLTRAP 1022 926 973 975 977 979 981 983 985 987 989 991 993 995 997. 999 1001 1003 1005 1007 e 
1009 1011 1013 1015 1019 | | | 
HLTRPX 926 929 931 933 935 937 939 941 943 945 947 949 951 953 955 957. 959 961 963 965 mere 
© 967 969 971 e 
N ISCWA 502 
N ISCWB 503 
N ISDVID 505 
® N ISINTC 504 ad 
N ISRANG 501 , 
ISSTAT 507 676 689 690 
e N ISTASK 506 ©@ 
IDLE 845 847 : 
| IDLEIV 866 609 792 
| e N IFINAL 310 e 
: N.IGNDEL. 332 
| N IGNENQ 330 
| e N IGNLFD 331 ad 
| N IGNLTL 325 
: N IGNNSB 326 
N. IGNULL 333 e 
IMSGBK 363 365 
| IMSGBP 360 361 
od IMSGCM 361 362 e 
IMSGLN 362 363 
INIT 532 883 
e INITCP 802 834 e 
INITIV 878 607 790 
INPMAX 318 319 
® N INTBT 730 e 
N INTH66 409 
| -N IOBUSY 386 
| ® IOLOOP 663 677 681 ad 
r IOWDS 368 369 
! N IOXFR 443 
e ON IVECT 785 sd 
L635R1 874 809 
N L66RDC 396 
N L66WTC 397 sd 
. LO6BUFR 369 370 
| N L6RSET 391 
© N LASTCH 40 @ 
| LENGTH 694. 656 ; 
| LOWSEC 525 629 696 807 
© | | a . F © 
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LSTSTS 376 377 

N LTLONG 309 

MASK 654 675 
MBXLOC 371 372 
MBXPKG 372 373 

MBXROD 442 

MBXWDS 399 

MCPLEV 284 

MFLAGS 304 

MODULE 1043 458 

MORE 715 717 

MORE2 804 630 
MSBMOD 434 

MSGLEV 291 

NETLEV 287. 

NSBERR 303 304 
OSADDR 493 687 

N OSCNTL 499 

OSCWA 495 688 

N O$CWB 496 

N OSINTC 497. 

OSRANG 494 687 
OSTASK 498 689 690 
ODDRWS 514. 

ODRWS 515 

OFRMTS 512 | 

OMSGFB 356 357 
OMSGFP 357 358 
OMSGLB 358 359 
OMSGLP 359 360 

ONE 481 804 805 8590 
N ONESEC 295 

N ORCAL$ 510 

ORWS 513 699 
OSEEKS 511 697 

N OWRAPS 516 

PSBCLK 352 353 
PSBCNT 353 354 : 
RANGE 485 629 656 807 818 851 
READ 640 631 810 852 
RESTOF 814 871 

N RLDSET 390 

RSTART 802 812 
RTCLEV 282 843 

N RTICLK. 727 

N RWORD 52 | 
S$DBTL 3 1075 1079 
N SBSCLV 288 

SCNDCK 317 318 
SECNUM 696. 806 817 
SECSI2Z 524 696 807 
SERROR 712 457 706 1026. 
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SLRDCK 
SM™$000 
SMSDLO 
SMSDL1 
SMSDL2 
SMSDL3 
SMSDL4 
SMSDL5 
SMSDL6 
SMSDL7 
SMSDLY 
SMSECH 
SMSEOO 
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